HOPE/Net-OpenAMD/t/local_server.t - diff

Return to local_server.t CVS log

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

version 1.1, 2010/06/26 00:25:21

version 1.5, 2010/06/27 01:52:33

Line 1

#!perl

# $AFresh1$

# $AFresh1: local_server.t,v 1.4 2010/06/26 16:33:33 andrew Exp $

use Test::More;# tests => 75;

use Test::More; # tests => 75;

use strict;

use warnings;

#use File::Temp qw/ tempdir /;

use Net::OpenAMD;

#use File::Copy qw/ cp /;

#use File::Spec;

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';

}

my $server = Test::Mojo::Server->new();

$server->executable('test_server.pl');

#$server = $server->command('perl t/test_server.pl');

my $path = $server->find_executable_ok('executable found');

#print "PATH: $path\n";

#my $port = $server->generate_port_ok('port test');

my $port = $server->start_daemon_ok('daemon test');

print "Port: $port\n";

$server->server_ok('server running');

my $pid = $server->pid;

my $amd = Net::OpenAMD->new(

print "PID: $pid\n";

{ base_url => 'http://127.0.0.1:' . $port . '/api', } );

NetworkTests::run_tests($amd);

kill( 'TERM', $server->pid );

$server->stop_server_ok('server stopped');

done_testing();

exit;