Permissions, a naive approach

[hermes] / api / t / permissions.t

diff --git a/api/t/permissions.t b/api/t/permissions.t
new file mode 100644 (file)
index 0000000..c06db8f
--- /dev/null
+++ b/api/t/permissions.t
@@ -0,0 +1,92 @@
+#!/usr/bin/perl
+#  Copyright (c) 2012, Gjøvik University College
+#  All rights reserved.
+
+#  Redistribution and use in source and binary forms, with or without
+#  modification, are permitted provided that the following conditions are met:
+#      * Redistributions of source code must retain the above copyright
+#        notice, this list of conditions and the following disclaimer.
+#      * Redistributions in binary form must reproduce the above copyright
+#        notice, this list of conditions and the following disclaimer in the
+#        documentation and/or other materials provided with the distribution.
+#      * Neither the name of the Gjøvik University College nor the
+#        names of its contributors may be used to endorse or promote products
+#        derived from this software without specific prior written permission.
+#       
+#  THIS SOFTWARE IS PROVIDED BY Gjøvik University College ''AS IS'' AND ANY
+#  EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+#  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+#  DISCLAIMED. IN NO EVENT SHALL Gjøvik University College BE LIABLE FOR ANY
+#  DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+#  (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+#  LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+#  ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+#  (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+#  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+use strict;
+use Test::More 'no_plan';
+use tests_common;
+
+my ($data, $temp, $test_domain );
+
+isa_ok( $g_ua, 'LWP::UserAgent', '$g_ua');
+isa_ok( $g_ua->cookie_jar, 'HTTP::Cookies', '$g_ua->cookies');
+
+login_apikey();
+
+# First: fetch a supported domain from the API...
+$data = exec_apinode("domain/list", undef);
+ok($data,                              'domain/list JSON decode');
+is( $data->{'response'}, 'ok',                 'domain/list result');
+ok($data->{'list'},                    'domain/list array');
+
+# NOW: Set the $test_domain to something useful (i.e. the first reported domain)
+$test_domain = $data->{'list'}[0];
+
+ok($test_domain,                       'test_domain set.');
+undef $data;
+
+$data = exec_apinode("user/available", { "user" => $test_username . "\@" . $test_domain });
+is( $data->{'response'}, 'ok',                 'user/available is available');
+undef $data;
+
+$data = exec_apinode("permissions/get", { "user" => $test_username . "\@" . $test_domain });
+is( $data->{'response'}, 'failed',     'permissions/get returns failed');
+is( $data->{'cause'},  'nonexistant',  'permissions/get gives nonexistant');
+undef $data;
+
+$data = exec_apinode("user/add_local", {
+       "user" => $test_username . "\@" . $test_domain,
+       "displayname" => "Automatic testing",
+       "email" => "noreply\@" . $test_domain,
+} );
+is( $data->{'response'}, 'ok',                 'user/add_local created new account');
+undef $data;
+
+$data = exec_apinode("permissions/get", { "user" => $test_username . "\@" . $test_domain });
+is( $data->{'response'}, 'ok',                 'permissions/get returns');
+ok( $data->{'permission'},             'permissions/get is set');
+isnt( $data->{'permission'}, -1,       'permissions/get is not -1');
+undef $data;
+
+$data = exec_apinode("permissions/set", { "user" => $test_username . "\@" . $test_domain, "permission" => 31 });
+is( $data->{'response'}, 'ok',                 'permissions/set returns');
+is( $data->{'permission'}, 31,         'permissions/set is 31');
+undef $data;
+
+$data = exec_apinode("permissions/get", { "user" => $test_username . "\@" . $test_domain });
+is( $data->{'response'}, 'ok',                 'permissions/get returns');
+ok( $data->{'permission'},             'permissions/get is set');
+is( $data->{'permission'}, 31,         'permissions/get is 31');
+undef $data;
+
+$data = exec_apinode("user/remove", { "user" => $test_username . "\@" . $test_domain });
+is( $data->{'response'}, 'ok',                 'user/remove deleted user');
+undef $data;
+
+$data = exec_apinode("permissions/get", { "user" => $test_username . "\@" . $test_domain });
+is( $data->{'response'}, 'failed',     'permissions/get return failed');
+undef $data;
+
+logout();