1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
use strict;
use warnings;
use RT::Test nodata => 1, tests => 10;
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_lacks('Configuration', 'no configuration tab');
$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_contains('Configuration', 'configuration tab is there');
$m->follow_link_ok({text => 'Configuration'});
is $m->status, 200, 'user has access to /Admin/';
}
|
