4 use RT::Test tests => 12;
5 my $user = RT::User->new(RT->SystemUser);
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' );
18 form_name => 'BuildQuery',
19 fields => { SavedSearchDescription => 'test' },
20 button => 'SavedSearchSave',
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" );
28 my $message = qq{Can not load saved search "$id"};
29 RT::Interface::Web::EscapeUTF8( \$message );
30 $m->content_contains( $message, 'user foo can not load saved search of root' );
32 $m->warning_like( qr/User #\d+ tried to load container user #\d+/,