]>
git.defcon.no Git - hermes/blob - api/t/phone.t
baccaf5ca515ca4c1356fc546c4f6f98205bb42a
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:
18 my ($data, $temp, $test_domain);
20 my $test_macaddress = '12341d6db76c';
22 isa_ok
( $g_ua, 'LWP::UserAgent', '$g_ua');
23 isa_ok
( $g_ua->cookie_jar, 'HTTP::Cookies', '$g_ua->cookies');
27 # First: fetch a supported domain from the API...
28 $data = exec_apinode
("domain/list", undef);
29 ok
($data, 'domain/list JSON decode');
30 is
( $data->{'response'}, 'ok', 'domain/list result');
31 ok
($data->{'list'}, 'domain/list array');
33 # NOW: Set the $test_domain to something useful (i.e. the first reported domain)
34 $test_domain = $data->{'list'}[0];
36 ok
($test_domain, 'test_domain set.');
39 $data = exec_apinode
("user/available", { "user" => $test_username . "\@" . $test_domain });
40 is
( $data->{'response'}, 'ok', 'user/available is available');
43 $data = exec_apinode
("user/add_local", {
44 "user" => $test_username . "\@" . $test_domain,
45 "displayname" => "Automatic testing",
46 "email" => "noreply\@" . $test_domain,
48 is
( $data->{'response'}, 'ok', 'user/add_local created new account');
50 $data = exec_apinode
("phone/list", undef);
51 is
( $data->{'response'}, 'ok', 'phone/list result');
52 ok
($data->{'list'}, 'phone/list array');
55 $data = exec_apinode
("phone/add", {
56 'user' => $test_username . "\@" . $test_domain,
57 'mac' => $test_macaddress,
60 is
( $data->{'response'}, 'ok', 'phone/add result');
61 ok
($data->{'mac'}, 'phone/add mac set');
62 ok
($data->{'username'}, 'phone/add username set');
63 ok
($data->{'domain'}, 'phone/add domain set');
66 $data = exec_apinode
("phone/list", { 'search' => $test_macaddress });
67 is
( $data->{'response'}, 'ok', 'phone/list search result');
68 ok
($data->{'list'}, 'phone/list search array');
71 $data = exec_apinode
("phone/get", { 'mac' => $test_macaddress });
72 is
( $data->{'response'}, 'ok', 'phone/get mac result');
73 ok
($data->{'list'}, 'phone/get mac array');
76 $data = exec_apinode
("phone/get", { 'user' => $test_username . "\@" . $test_domain });
77 is
( $data->{'response'}, 'ok', 'phone/get user result');
78 ok
($data->{'list'}, 'phone/get user array');
81 $data = exec_apinode
("phone/remove", {
82 'user' => $test_username . "\@" . $test_domain,
83 'mac' => $test_macaddress,
85 is
( $data->{'response'}, 'ok', 'phone/remove result');
86 ok
($data->{'mac'}, 'phone/remove mac set');
87 ok
($data->{'username'}, 'phone/remove username set');
88 ok
($data->{'domain'}, 'phone/remove domain set');
91 $data = exec_apinode
("user/remove", { "user" => $test_username . "\@" . $test_domain });
92 is
( $data->{'response'}, 'ok', 'user/remove deleted user');