]>
git.defcon.no Git - hermes/blob - api/t/numbers.t
4 use Test
::More
'no_plan';
7 # Configuration variables defined in tests_common
8 # Make sure those are updated/set correctly..
12 # Further variables defined in tests_common:
17 my ($data, $temp, $test_number_start, $test_number_end);
19 $test_number_end .= int(rand(255))
20 while ( length( $test_number_end ) < 8 );
22 $test_number_end = substr( $test_number_end, 0, 8 );
23 $test_number_start = $test_number_end - 1;
25 $test_number_start = '+47' . $test_number_start;
26 $test_number_end = '+47' . $test_number_end;
28 isa_ok
( $g_ua, 'LWP::UserAgent', '$g_ua');
29 isa_ok
( $g_ua->cookie_jar, 'HTTP::Cookies', '$g_ua->cookies');
33 $data = exec_apinode
("numbers/list", undef);
34 is
( $data->{'response'}, 'ok', 'numbers/list result');
35 ok
($data->{'list'}, 'numbers/list array');
38 $data = exec_apinode
("numbers/add_range", {
39 'start' => $test_number_end,
40 'end' => $test_number_start,
43 is
( $data->{'response'}, 'failed', 'numbers/add_range invalid result');
46 $data = exec_apinode
("numbers/add_range", {
47 'start' => $test_number_start,
48 'end' => $test_number_end,
50 is
( $data->{'response'}, 'ok', 'numbers/add_range result');
53 $data = exec_apinode
("numbers/inpool", { 'number' => $test_number_start, });
54 is
( $data->{'response'}, 'ok', 'numbers/inpool result');
57 $data = exec_apinode
("numbers/remove", { 'number' => $test_number_start, });
58 is
( $data->{'response'}, 'ok', 'numbers/remove 1 result');
61 $data = exec_apinode
("numbers/remove", { 'number' => $test_number_end, });
62 is
( $data->{'response'}, 'ok', 'numbers/remove 2 result');
65 $data = exec_apinode
("numbers/add", { 'number' => $test_number_start, });
66 is
( $data->{'response'}, 'ok', 'numbers/add result');
69 $data = exec_apinode
("numbers/remove", { 'number' => $test_number_start, });
70 is
( $data->{'response'}, 'ok', 'numbers/remove 3 result');
73 $data = exec_apinode
("numbers/inpool", { 'number' => $test_number_start, });
74 is
( $data->{'response'}, 'failed', 'numbers/remove inpool removed');
77 $data = exec_apinode
("numbers/remove", { 'number' => $test_number_start, });
78 is
( $data->{'response'}, 'failed', 'numbers/remove invalid remove result');