![]() ![]() | ![]() |
version 1.11, 2010/07/13 04:37:47 | version 1.12, 2010/07/13 07:10:31 | ||
---|---|---|---|
|
|
||
#!perl | #!perl | ||
package NetworkTests; | package NetworkTests; | ||
# $AFresh1: network_tests.t,v 1.10 2010/07/13 03:23:48 andrew Exp $ | # $AFresh1: network_tests.t,v 1.11 2010/07/13 03:37:47 andrew Exp $ | ||
use strict; | use strict; | ||
use warnings; | use warnings; | ||
|
|
||
if ( !caller() ) { | if ( !caller() ) { | ||
if ( $ENV{'NETWORK_TESTS'} ) { | if ( $ENV{'NETWORK_TESTS'} ) { | ||
plan tests => 13; | plan tests => 31; | ||
} | } | ||
else { | else { | ||
plan skip_all => | plan skip_all => |