This commit was generated by cvs2svn to compensate for changes in r8690,

which included commits to RCS files with non-trunk default branches.

1 files changed, 41 insertions, 0 deletions

diff --git a/rt/t/web/config_tab_right.t b/rt/t/web/config_tab_right.t
new file mode 100644
index 000000000..4dc9ec082
--- /dev/null
+++ b/rt/t/web/config_tab_right.t
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+
+use RT::Test tests => 8;
+
+my ($uname, $upass, $user) = ('tester', 'tester');
+{
+    $user = RT::User->new($RT::SystemUser);
+    my ($status, $msg) = $user->Create(
+        Name => $uname,
+        Password => $upass,
+        Disabled => 0,
+        Privileged => 1,
+    );
+    ok($status, 'created a user');
+}
+
+my ($baseurl, $m) = RT::Test->started_ok;
+ok $m->login($uname, $upass), "logged in";
+
+{
+    $m->content_unlike(qr/Configuration/, 'no configuration');
+    $m->get('/Admin/');
+    is $m->status, 403, 'no access to /Admin/';
+}
+
+RT::Test->set_rights(
+    { Principal => $user->PrincipalObj,
+      Right => [qw(ShowConfigTab)],
+    },
+);
+
+{
+    $m->get('/');
+    $m->content_like(qr/Configuration/, 'configuration is there');
+
+    $m->follow_link_ok({text => 'Configuration'});
+    is $m->status, 200, 'user has access to /Admin/';
+}
+