| version 1.6, 2010/06/30 06:30:17 |
version 1.7, 2010/06/30 19:04:20 |
|
|
| #!perl |
#!perl |
| package NetworkTests; |
package NetworkTests; |
| |
|
| # $AFresh1: network_tests.t,v 1.5 2010/06/28 20:40:38 andrew Exp $ |
# $AFresh1: network_tests.t,v 1.6 2010/06/30 05:30:17 andrew Exp $ |
| |
|
| use strict; |
use strict; |
| use warnings; |
use warnings; |
|
|
| |
|
| if ( !caller() ) { |
if ( !caller() ) { |
| if ( $ENV{'NETWORK_TESTS'} ) { |
if ( $ENV{'NETWORK_TESTS'} ) { |
| |
plan tests => 11; |
| # plan tests => ??; |
|
| } |
} |
| else { |
else { |
| plan skip_all => |
plan skip_all => |
|
|
| = Net::OpenAMD->new( { base_uri => 'http://api.hope.net/api/', } ); |
= Net::OpenAMD->new( { base_uri => 'http://api.hope.net/api/', } ); |
| run_tests( $amd, \%tests ); |
run_tests( $amd, \%tests ); |
| |
|
| done_testing(); |
#done_testing(); |
| } |
} |
| |
|
| 1; |
1; |