| version 1.7, 2010/06/27 04:59:32 |
version 1.14, 2010/07/17 13:12:32 |
|
|
| #!perl |
#!perl |
| # $AFresh1: local_server.t,v 1.6 2010/06/27 03:45:07 andrew Exp $ |
# $AFresh1: local_server.t,v 1.13 2010/07/13 03:37:47 andrew Exp $ |
| use Test::More; # tests => 75; |
use Test::More; |
| |
|
| use strict; |
use strict; |
| use warnings; |
use warnings; |
|
|
| use lib "$FindBin::Bin/../../mojo/lib"; |
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 ($@) { |
| if $@; |
plan skip_all => |
| |
"Test::Mojo::Server required for testing local server"; |
| |
} |
| |
elsif ( $] < 5.01 ) { |
| |
plan skip_all => 'test_server.pl requires perl 5.10 or higher'; |
| |
} |
| |
else { |
| |
plan tests => 18; |
| |
} |
| require 'network_tests.t'; |
require 'network_tests.t'; |
| } |
} |
| |
|
|
|
| |
|
| $server->stop_server_ok('server stopped'); |
$server->stop_server_ok('server stopped'); |
| |
|
| done_testing(); |
#done_testing(); |