Return to local_server.t CVS log

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

Annotation of HOPE/Net-OpenAMD/t/local_server.t, Revision 1.4

1.1       andrew      1: #!perl
1.4     ! andrew      2: # $AFresh1: local_server.t,v 1.3 2010/06/26 14:14:36 andrew Exp $
1.1       andrew      3: use Test::More;# tests => 75;
                      4:
                      5: use strict;
                      6: use warnings;
                      7:
1.4     ! andrew      8: use Net::OpenAMD;
1.1       andrew      9:
                     10: my $have_test_json = 1;
                     11:
                     12: BEGIN {
1.2       andrew     13:     use FindBin;
1.4     ! andrew     14:     use lib "$FindBin::Bin";
        !            15:     use lib "$FindBin::Bin/../../mojo/lib";
1.2       andrew     16:
1.1       andrew     17:     eval "use Test::Mojo::Server";
                     18:     plan skip_all => "Test::Mojo::Server required for testing local server" if $@;
1.4     ! andrew     19:     require 'network_tests.t';
1.1       andrew     20: }
                     21:
                     22: my $server = Test::Mojo::Server->new();
                     23: $server->executable('test_server.pl');
                     24:
                     25: my $path = $server->find_executable_ok('executable found');
                     26: my $port = $server->start_daemon_ok('daemon test');
                     27: $server->server_ok('server running');
                     28:
1.4     ! andrew     29: # XXX tests here
        !            30: my $amd = Net::OpenAMD->new();
        !            31: NetworkTests::run_tests($amd);
1.1       andrew     32:
                     33: $server->stop_server_ok('server stopped');
                     34:
                     35:
                     36: done_testing();