summaryrefslogtreecommitdiff
path: root/rt/t/web/config_tab_right.t
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2010-12-27 00:04:45 +0000
committercvs2git <cvs2git>2010-12-27 00:04:45 +0000
commitc82d349f864e6bd9f96fd1156903bc1f7193a203 (patch)
treee117a87533656110b6acd56fc0ca64289892a9f5 /rt/t/web/config_tab_right.t
parent74e058c8a010ef6feb539248a550d0bb169c1e94 (diff)
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'rt/t/web/config_tab_right.t')
-rw-r--r--rt/t/web/config_tab_right.t41
1 files changed, 0 insertions, 41 deletions
diff --git a/rt/t/web/config_tab_right.t b/rt/t/web/config_tab_right.t
deleted file mode 100644
index 4dc9ec0..0000000
--- a/rt/t/web/config_tab_right.t
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/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/';
-}
-