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.4, Sat Jun 26 16:33:33 2010 UTC (14 years ago) by andrew
put the API tests in their own file, but allow me to call it with my own object so it can run the tests against multiple hosts. |
#!perl # $AFresh1: local_server.t,v 1.4 2010/06/26 16:33: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 $@; 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'); # XXX tests here my $amd = Net::OpenAMD->new(); NetworkTests::run_tests($amd); $server->stop_server_ok('server stopped'); done_testing();