version 1.6, 2010/06/30 06:30:17 |
version 1.8, 2010/07/13 01:14:43 |
|
|
#!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.7 2010/06/30 18:04:20 andrew Exp $ |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
use Test::More; |
use Test::More; |
use Net::OpenAMD; |
use Net::OpenAMD; |
|
use Data::Dumper; |
|
|
if ( !caller() ) { |
if ( !caller() ) { |
if ( $ENV{'NETWORK_TESTS'} ) { |
if ( $ENV{'NETWORK_TESTS'} ) { |
|
plan tests => 13; |
# plan tests => ??; |
|
} |
} |
else { |
else { |
plan skip_all => |
plan skip_all => |
|
|
location => [ |
location => [ |
{ args => undef, |
{ args => undef, |
expect => [ |
expect => [ |
{ 'y' => '7.33745396305', |
{ 'y' => '43.4861220266', |
'user' => 'user6', |
'user' => 'user6', |
'x' => '41.0283030135' |
'x' => '18.2468971683' |
}, |
}, |
{ 'y' => '36.5212503999', |
{ 'y' => '36.5212503999', |
'user' => 'user7', |
'user' => 'user7', |
|
|
} |
} |
], |
], |
}, |
}, |
|
{ args => [ user => 'user0' ], |
|
expect => [], |
|
}, |
], |
], |
speakers => [ |
speakers => [ |
{ args => undef, |
{ args => undef, |
expect => [ |
expect => [ |
|
[ '9000', |
|
{ 'name' => 'The Cheshire Catalyst', |
|
'bio' => 'Jacob\'s bio' |
|
} |
|
], |
[ 'user0', |
[ 'user0', |
{ 'name' => 'Jacob', |
{ 'name' => 'Jacob', |
'bio' => 'Jacob\'s bio' |
'bio' => 'Jacob\'s bio' |
|
|
= 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; |