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
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/';
}
|
