rt/t/web/saved_search_permissions.t

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