5 use RT::Test tests => 11;
7 RT->Config->Set( ShowMoreAboutPrivilegedUsers => 1 );
9 my ( $url, $m ) = RT::Test->started_ok;
10 my $user_a = RT::Test->load_or_create_user(
12 Password => 'password',
14 ok( $user_a, 'created user user_a' );
19 Right => [ qw/SeeQueue ShowTicket CreateTicket/ ]
22 'set rights for user_a'
25 my $ticket = RT::Ticket->new(RT->SystemUser);
26 my ($id) = $ticket->Create(
27 Subject => 'groups limit',
29 Requestor => $user_a->id,
31 ok( $id, 'created ticket' );
34 ok( $m->login( user_a => 'password' ), 'logged in as user_a' );
39 !$m->find_link( text => 'Edit' ), 'no Edit link without AdminUsers permission'
46 Right => [ qw/AdminUsers ShowConfigTab/ ]
49 'add AdminUsers and ShowConfigTab rights for user_a'
53 $m->follow_link_ok( { text => 'Edit' }, 'follow the Edit link' );
54 is( $m->uri, $url . "/Admin/Users/Memberships.html?id=" . $user_a->id, 'url is right' );