version 1.14, 2010/07/17 12:46:47 |
version 1.15, 2010/07/17 13:10:48 |
|
|
#!perl |
#!perl |
package NetworkTests; |
package NetworkTests; |
|
|
# $AFresh1: network_tests.t,v 1.13 2010/07/14 01:54:03 andrew Exp $ |
# $AFresh1: network_tests.t,v 1.14 2010/07/17 11:46:47 andrew Exp $ |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
expect => array_each( $cmp{location} ), |
expect => array_each( $cmp{location} ), |
}, |
}, |
{ args => { user => 'user0' }, |
{ args => { user => 'user0' }, |
expect => qr/^Invalid \s JSON/xms, |
expect => qr/^Invalid \s JSON|$/xms, |
}, |
}, |
{ args => { user => 'user0', limit => 5 }, |
{ args => { user => 'user0', limit => 5 }, |
expect => qr/^Invalid \s JSON/xms, |
expect => qr/^Invalid \s JSON|$/xms, |
}, |
}, |
{ args => { area => 'Lovelace' }, |
{ args => { area => 'Lovelace' }, |
expect => array_each( $cmp{location} ), |
expect => array_each( $cmp{location} ), |