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