rt/t/web/requestor_groups_limit.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use RT::Test tests => 11;
   7
   8 diag "set groups limit to 1";
   9 RT->Config->Set( ShowMoreAboutPrivilegedUsers    => 1 );
  10 RT->Config->Set( MoreAboutRequestorGroupsLimit => 1 );
  11
  12 my $ticket = RT::Ticket->new(RT->SystemUser);
  13 my ($id) = $ticket->Create(
  14     Subject   => 'groups limit',
  15     Queue     => 'General',
  16     Requestor => 'root@localhost',
  17 );
  18 ok( $id, 'created ticket' );
  19
  20 my ( $url, $m ) = RT::Test->started_ok;
  21 ok( $m->login(), 'logged in as root' );
  22 $m->goto_ticket($id);
  23 $m->content_like( qr/Everyone|Privileged/, 'got one group' );
  24 $m->content_unlike( qr/Everyone.*?Privileged/, 'not 2 groups' );
  25
  26 RT::Test->stop_server;
  27
  28 diag "set groups limit to 2";
  29
  30 RT->Config->Set( MoreAboutRequestorGroupsLimit => 2 );
  31 ( $url, $m ) = RT::Test->started_ok;
  32 ok( $m->login(), 'logged in as root' );
  33 $m->goto_ticket($id);
  34 $m->content_contains( 'Everyone', 'got the first group' );
  35 $m->content_contains( 'Privileged', 'got the second group' );
  36