6 use RT::Test tests => 11;
8 diag "set groups limit to 1";
9 RT->Config->Set( ShowMoreAboutPrivilegedUsers => 1 );
10 RT->Config->Set( MoreAboutRequestorGroupsLimit => 1 );
12 my $ticket = RT::Ticket->new(RT->SystemUser);
13 my ($id) = $ticket->Create(
14 Subject => 'groups limit',
16 Requestor => 'root@localhost',
18 ok( $id, 'created ticket' );
20 my ( $url, $m ) = RT::Test->started_ok;
21 ok( $m->login(), 'logged in as root' );
23 $m->content_like( qr/Everyone|Privileged/, 'got one group' );
24 $m->content_unlike( qr/Everyone.*?Privileged/, 'not 2 groups' );
26 RT::Test->stop_server;
28 diag "set groups limit to 2";
30 RT->Config->Set( MoreAboutRequestorGroupsLimit => 2 );
31 ( $url, $m ) = RT::Test->started_ok;
32 ok( $m->login(), 'logged in as root' );
34 $m->content_contains( 'Everyone', 'got the first group' );
35 $m->content_contains( 'Privileged', 'got the second group' );