=================================================================== RCS file: /cvs/HOPE/Net-OpenAMD/t/local_server.t,v retrieving revision 1.4 retrieving revision 1.6 diff -u -r1.4 -r1.6 --- HOPE/Net-OpenAMD/t/local_server.t 2010/06/26 17:33:33 1.4 +++ HOPE/Net-OpenAMD/t/local_server.t 2010/06/27 04:45:07 1.6 @@ -1,21 +1,20 @@ #!perl -# $AFresh1: local_server.t,v 1.3 2010/06/26 14:14:36 andrew Exp $ -use Test::More;# tests => 75; +# $AFresh1: local_server.t,v 1.5 2010/06/27 00:52:33 andrew Exp $ +use Test::More; # tests => 75; use strict; use warnings; use Net::OpenAMD; -my $have_test_json = 1; - BEGIN { use FindBin; use lib "$FindBin::Bin"; use lib "$FindBin::Bin/../../mojo/lib"; eval "use Test::Mojo::Server"; - plan skip_all => "Test::Mojo::Server required for testing local server" if $@; + plan skip_all => "Test::Mojo::Server required for testing local server" + if $@; require 'network_tests.t'; } @@ -26,11 +25,10 @@ my $port = $server->start_daemon_ok('daemon test'); $server->server_ok('server running'); -# XXX tests here -my $amd = Net::OpenAMD->new(); +my $amd = Net::OpenAMD->new( + { base_url => 'http://127.0.0.1:' . $port . '/api/', } ); NetworkTests::run_tests($amd); -$server->stop_server_ok('server stopped'); - +$server->stop_server_ok('server stopped'); done_testing();