rt/t/web/saved_search_permissions.t

   1 use strict;
   2 use warnings;
   3
   4 use RT::Test tests => 12;
   5 my $user = RT::User->new(RT->SystemUser);
   6 ok(
   7     $user->Create(
   8         Name       => 'foo',
   9         Privileged => 1,
  10         Password   => 'foobar'
  11     )
  12 );
  13
  14 my ( $url, $m ) = RT::Test->started_ok;
  15 ok( $m->login, 'root logged in' );
  16 $m->get_ok( $url . '/Search/Build.html?Query=id<100' );
  17 $m->submit_form(
  18     form_name => 'BuildQuery',
  19     fields    => { SavedSearchDescription => 'test' },
  20     button    => 'SavedSearchSave',
  21 );
  22 $m->content_contains( q{name="SavedSearchDescription" value="test"},
  23     'saved test search' );
  24 my ($id) = $m->content =~ /value="(RT::User-\d+-SavedSearch-\d+)"/;
  25 ok( $m->login( 'foo', 'foobar', logout => 1 ), 'logged in' );
  26 $m->get_ok( $url . "/Search/Build.html?SavedSearchLoad=$id" );
  27
  28 my $message = qq{Can not load saved search "$id"};
  29 RT::Interface::Web::EscapeHTML( \$message );
  30 $m->content_contains( $message, 'user foo can not load saved search of root' );
  31
  32 $m->warning_like( qr/User #\d+ tried to load container user #\d+/,
  33     'get warning' );