Return to local_server.t CVS log

Up to [local] / HOPE / Net-OpenAMD / t

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();