![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to network_tests.t CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / HOPE / Net-OpenAMD / t|
Return to network_tests.t CVS log | Up to [local] / HOPE / Net-OpenAMD / t |
1.1 andrew 1: #!perl
2: package NetworkTests;
1.2 andrew 3:
1.12 ! andrew 4: # $AFresh1: network_tests.t,v 1.11 2010/07/13 03:37:47 andrew Exp $
1.1 andrew 5:
6: use strict;
7: use warnings;
8:
9: use Test::More;
1.9 andrew 10: use Test::Deep;
1.1 andrew 11: use Net::OpenAMD;
1.11 andrew 12:
13: #use Data::Dumper;
1.1 andrew 14:
1.2 andrew 15: if ( !caller() ) {
16: if ( $ENV{'NETWORK_TESTS'} ) {
1.12 ! andrew 17: plan tests => 31;
1.1 andrew 18: }
19: else {
1.6 andrew 20: plan skip_all =>
21: 'Network test. Set $ENV{NETWORK_TESTS} to a true value to run.';
1.1 andrew 22: }
23:
1.9 andrew 24: my $amd
25: = Net::OpenAMD->new( { base_uri => 'http://api.hope.net/api/', } );
26: run_tests($amd);
27:
28: #done_testing();
29: }
30:
31: 1;
32:
33: sub run_tests {
34: my ($amd) = @_;
35:
36: my @interests = (
37: "new tech", "activism",
38: "radio", "lockpicking",
39: "crypto", "privacy",
40: "ethics", "telephones",
41: "social engineering", "hacker spaces",
42: "hardware hacking", "nostalgia",
43: "communities", "science",
44: "government", "network security",
45: "malicious software", "pen testing",
46: "web", "niche hacks",
47: "media"
48: );
49: my %cmp = (
50: single_line => re('^[^\n]+$'),
1.10 andrew 51: multi_line => re('(?xms:^.*$)'),
1.9 andrew 52: digits => re('^\d+$'),
53: track => any( 'Lovelace', 'Tesla', 'Bell', 'Hooper' ),
54: area => any('Engressia'),
55: interests => any(@interests),
56: all_interests => bag(@interests),
57: coordinate => re('^\d\d\.\d+$'),
58: boolean => any( 'True', 'False' ),
59: );
60:
1.11 andrew 61: $cmp{user} = [
62: $cmp{single_line},
63: { name => $cmp{single_line},
64:
65: #interests => array_each( $cmp{interests} ),
66: #x => $cmp{coordinate},
67: #y => $cmp{coordinate},
68: }
69: ];
70:
71: $cmp{speaker} = [
72: $cmp{single_line},
73: { name => $cmp{single_line},
74: bio => $cmp{multi_line},
75: }
76: ];
1.9 andrew 77:
1.2 andrew 78: my %tests = (
79: location => [
80: { args => undef,
1.9 andrew 81: expect => array_each(
82: { area => $cmp{area},
83: user => $cmp{digits},
84: button => $cmp{boolean},
85: x => $cmp{coordinate},
86: y => $cmp{coordinate},
87: time => $cmp{single_line},
1.4 andrew 88: }
1.9 andrew 89: ),
1.2 andrew 90: },
1.10 andrew 91: { args => { user => 'user0' },
92: expect => array_each(),
1.8 andrew 93: },
1.11 andrew 94: { args => { user => 'user0', limit => 20 },
95: expect => array_each(),
96: },
97: { args => { area => 'Engressa' },
98: expect => array_each(),
99: },
1.2 andrew 100: ],
101: speakers => [
102: { args => undef,
1.11 andrew 103: expect => array_each( $cmp{speaker} ),
104: },
105: { args => { name => 'The Cheshire Catalyst' },
106: expect => array_each( $cmp{speaker} ),
1.2 andrew 107: },
108: ],
109: talks => [
110: { args => undef,
1.9 andrew 111: expect => array_each(
1.10 andrew 112: { abstract => $cmp{multi_line},
113: speakers => array_each( $cmp{single_line} ),
114: time => $cmp{single_line},
115: title => $cmp{single_line},
116: track => $cmp{track},
1.9 andrew 117: }
118: ),
1.2 andrew 119: },
1.11 andrew 120: { args => { interests => 'lockpicking' },
121: expect => array_each(
122: { abstract => $cmp{multi_line},
123: speakers => array_each( $cmp{single_line} ),
124: time => $cmp{single_line},
125: title => $cmp{single_line},
126: track => $cmp{track},
127:
128: # interests => 'lockpicking',
129: }
130: ),
131: },
1.2 andrew 132: ],
133: interests => [
134: { args => undef,
1.9 andrew 135: expect => $cmp{all_interests},
1.2 andrew 136: },
137: ],
138: users => [
139: { args => undef,
1.11 andrew 140: expect => array_each( $cmp{user} ),
141: },
142: { args => { user => 'user0' },
143: expect => array_each( $cmp{user} ),
144: },
145: { args => { user => 'user0', limit => 20 },
146: expect => array_each( $cmp{user} ),
147: },
148: { args => { interests => 'lockpicking' },
149: expect => array_each( $cmp{user} ),
1.2 andrew 150: },
151: ],
152: stats => [
153: { args => undef,
1.4 andrew 154: expect => qr/^Unused \s feature/xms,
1.2 andrew 155: },
156: ],
157: );
158:
1.9 andrew 159: foreach my $method ( keys %tests ) {
160: foreach my $test ( @{ $tests{$method} } ) {
1.2 andrew 161: no warnings 'uninitialized';
162: my $result;
163: eval { $result = $amd->$method( $test->{args} ) };
1.4 andrew 164: if ( ref $test->{expect} eq 'Regexp' ) {
165: like( $@, $test->{expect}, "AMD->$method($test->{args})" );
166: }
167: elsif ( ref $test->{expect} ) {
168: is( $@, '', "AMD->$method($test->{args})" );
1.9 andrew 169: cmp_deeply( $result, $test->{expect},
1.6 andrew 170: "AMD->$method($test->{args}) - "
171: . 'got expected result' );
1.4 andrew 172: }
173: else {
174: is( $@, $test->{expect}, "AMD->$method($test->{args})" );
175: }
1.2 andrew 176: }
177: }
1.1 andrew 178: }