version 1.1, 2010/06/26 00:25:21 |
version 1.3, 2010/06/26 15:14:36 |
|
|
#!perl |
#!perl |
# $AFresh1$ |
# $AFresh1: local_server.t,v 1.2 2010/06/26 14:02:31 andrew Exp $ |
use Test::More;# tests => 75; |
use Test::More;# tests => 75; |
|
|
use strict; |
use strict; |
|
|
my $have_test_json = 1; |
my $have_test_json = 1; |
|
|
BEGIN { |
BEGIN { |
|
use FindBin; |
|
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 $@; |
} |
} |
|
|
my $pid = $server->pid; |
my $pid = $server->pid; |
print "PID: $pid\n"; |
print "PID: $pid\n"; |
|
|
kill( 'TERM', $server->pid ); |
|
$server->stop_server_ok('server stopped'); |
$server->stop_server_ok('server stopped'); |
|
|
|
|