version 1.1, 2010/06/26 00:25:21 |
version 1.4, 2010/06/26 17:33:33 |
|
|
#!perl |
#!perl |
# $AFresh1$ |
# $AFresh1: local_server.t,v 1.3 2010/06/26 14:14:36 andrew Exp $ |
use Test::More;# tests => 75; |
use Test::More;# tests => 75; |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
#use File::Temp qw/ tempdir /; |
use Net::OpenAMD; |
#use File::Copy qw/ cp /; |
|
#use File::Spec; |
|
|
|
my $have_test_json = 1; |
my $have_test_json = 1; |
|
|
BEGIN { |
BEGIN { |
|
use FindBin; |
|
use lib "$FindBin::Bin"; |
|
use lib "$FindBin::Bin/../../mojo/lib"; |
|
|
eval "use Test::Mojo::Server"; |
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(); |
my $server = Test::Mojo::Server->new(); |
$server->executable('test_server.pl'); |
$server->executable('test_server.pl'); |
#$server = $server->command('perl t/test_server.pl'); |
|
|
|
my $path = $server->find_executable_ok('executable found'); |
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'); |
my $port = $server->start_daemon_ok('daemon test'); |
print "Port: $port\n"; |
|
|
|
$server->server_ok('server running'); |
$server->server_ok('server running'); |
|
|
my $pid = $server->pid; |
# XXX tests here |
print "PID: $pid\n"; |
my $amd = Net::OpenAMD->new(); |
|
NetworkTests::run_tests($amd); |
|
|
kill( 'TERM', $server->pid ); |
|
$server->stop_server_ok('server stopped'); |
$server->stop_server_ok('server stopped'); |
|
|
|
|
|
|
done_testing(); |
done_testing(); |
exit; |
|