Return to local_server.t CVS log | Up to [local] / HOPE / Net-OpenAMD / t |
File: [local] / HOPE / Net-OpenAMD / t / local_server.t (download)
Revision 1.14, Sat Jul 17 12:12:32 2010 UTC (13 years, 11 months ago) by andrew
only 18 tests now since I only test against the failure if it exists. |
#!perl # $AFresh1: local_server.t,v 1.14 2010/07/17 12:12:32 andrew Exp $ use Test::More; use strict; use warnings; use Net::OpenAMD; BEGIN { use FindBin; use lib "$FindBin::Bin"; use lib "$FindBin::Bin/../../mojo/lib"; eval "use Test::Mojo::Server"; 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 => 18; } require 'network_tests.t'; } my $server = Test::Mojo::Server->new(); $server->executable('test_server.pl'); my $path = $server->find_executable_ok('executable found'); my $port = $server->start_daemon_ok('daemon test'); $server->server_ok('server running'); my $amd = Net::OpenAMD->new( { base_uri => 'http://127.0.0.1:' . $port . '/api/', } ); NetworkTests::run_tests($amd); $server->stop_server_ok('server stopped'); #done_testing();