4 use RT::Test nodata => 1, tests => 10;
6 my ($uname, $upass, $user) = ('tester', 'tester');
8 $user = RT::User->new(RT->SystemUser);
9 my ($status, $msg) = $user->Create(
15 ok($status, 'created a user');
18 my ($baseurl, $m) = RT::Test->started_ok;
19 ok $m->login($uname, $upass), "logged in";
22 $m->content_lacks('Configuration', 'no configuration tab');
24 is $m->status, 403, 'no access to /Admin/';
28 { Principal => $user->PrincipalObj,
29 Right => [qw(ShowConfigTab)],
35 $m->content_contains('Configuration', 'configuration tab is there');
37 $m->follow_link_ok({text => 'Configuration'});
38 is $m->status, 200, 'user has access to /Admin/';