5 use RT::Test tests => 12;
6 my $user = RT::User->new(RT->SystemUser);
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' );
19 form_name => 'BuildQuery',
20 fields => { SavedSearchDescription => 'test' },
21 button => 'SavedSearchSave',
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', logout => 1 ), 'logged in' );
27 $m->get_ok( $url . "/Search/Build.html?SavedSearchLoad=$id" );
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' );
33 $m->warning_like( qr/User #\d+ tried to load container user #\d+/,