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