=================================================================== RCS file: /cvs/HOPE/Net-OpenAMD/t/local_server.t,v retrieving revision 1.6 retrieving revision 1.13 diff -u -r1.6 -r1.13 --- HOPE/Net-OpenAMD/t/local_server.t 2010/06/27 04:45:07 1.6 +++ HOPE/Net-OpenAMD/t/local_server.t 2010/07/13 04:37:47 1.13 @@ -1,6 +1,6 @@ #!perl -# $AFresh1: local_server.t,v 1.5 2010/06/27 00:52:33 andrew Exp $ -use Test::More; # tests => 75; +# $AFresh1: local_server.t,v 1.12 2010/07/13 02:27:06 andrew Exp $ +use Test::More; use strict; use warnings; @@ -13,8 +13,16 @@ use lib "$FindBin::Bin/../../mojo/lib"; eval "use Test::Mojo::Server"; - plan skip_all => "Test::Mojo::Server required for testing local server" - if $@; + if ($@) { + plan skip_all => + "Test::Mojo::Server required for testing local server"; + } + elsif ( $] < 5.01 ) { + plan skip_all => 'test_server.pl requires perl 5.10 or higher'; + } + else { + plan tests => 31; + } require 'network_tests.t'; } @@ -26,9 +34,9 @@ $server->server_ok('server running'); my $amd = Net::OpenAMD->new( - { base_url => 'http://127.0.0.1:' . $port . '/api/', } ); + { base_uri => 'http://127.0.0.1:' . $port . '/api/', } ); NetworkTests::run_tests($amd); $server->stop_server_ok('server stopped'); -done_testing(); +#done_testing();