version 1.1, 2010/06/26 00:25:21 |
version 1.2, 2010/06/26 15:02:31 |
|
|
#!perl |
#!perl |
# $AFresh1$ |
# $AFresh1: local_server.t,v 1.1 2010/06/25 23:25:21 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'); |
|
|
|
|