version 1.9, 2010/07/13 03:27:06 |
version 1.10, 2010/07/13 04:23:48 |
|
|
#!perl |
#!perl |
package NetworkTests; |
package NetworkTests; |
|
|
# $AFresh1: network_tests.t,v 1.8 2010/07/13 00:14:43 andrew Exp $ |
# $AFresh1: network_tests.t,v 1.9 2010/07/13 02:27:06 andrew Exp $ |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
); |
); |
my %cmp = ( |
my %cmp = ( |
single_line => re('^[^\n]+$'), |
single_line => re('^[^\n]+$'), |
multi_line => re('^.*$'), |
multi_line => re('(?xms:^.*$)'), |
digits => re('^\d+$'), |
digits => re('^\d+$'), |
track => any( 'Lovelace', 'Tesla', 'Bell', 'Hooper' ), |
track => any( 'Lovelace', 'Tesla', 'Bell', 'Hooper' ), |
area => any('Engressia'), |
area => any('Engressia'), |
|
|
} |
} |
), |
), |
}, |
}, |
{ args => { user => 'user0' }, |
{ args => { user => 'user0' }, |
expect => array_each(), |
expect => array_each(), |
}, |
}, |
], |
], |
speakers => [ |
speakers => [ |
{ args => undef, |
{ args => undef, |
expect => array_each( |
expect => array_each( |
{ name => $cmp{single_line}, |
[ $cmp{single_line}, |
bio => $cmp{multi_line}, |
{ name => $cmp{single_line}, |
} |
bio => $cmp{multi_line}, |
|
} |
|
] |
), |
), |
}, |
}, |
], |
], |
talks => [ |
talks => [ |
{ args => undef, |
{ args => undef, |
expect => array_each( |
expect => array_each( |
{ abstract => $cmp{single_line}, |
{ abstract => $cmp{multi_line}, |
interests => array_each( $cmp{interests} ), |
speakers => array_each( $cmp{single_line} ), |
speakers => array_each( $cmp{single_line} ), |
time => $cmp{single_line}, |
time => $cmp{single_line}, |
title => $cmp{single_line}, |
title => $cmp{multi_line}, |
track => $cmp{track}, |
track => $cmp{track}, |
|
} |
} |
), |
), |
}, |
}, |
|
|
users => [ |
users => [ |
{ args => undef, |
{ args => undef, |
expect => array_each( |
expect => array_each( |
{ interests => array_each( $cmp{interests} ), |
$cmp{single_line}, |
name => $cmp{single_line}, |
{ name => $cmp{single_line}, |
x => $cmp{coordinate}, |
|
y => $cmp{coordinate}, |
#interests => array_each( $cmp{interests} ), |
|
#x => $cmp{coordinate}, |
|
#y => $cmp{coordinate}, |
} |
} |
), |
), |
}, |
}, |