rt/t/web/saved_search_update.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use RT::Test tests => 18;
   6
   7 my $root = RT::User->new( $RT::SystemUser );
   8 $root->Load('root');
   9 my $uid = $root->id;
  10 ok( $uid, 'loaded root' );
  11
  12 my $group = RT::Group->new( $RT::SystemUser );
  13 my ($gid) = $group->CreateUserDefinedGroup( Name => 'foo' );
  14 ok( $gid, 'created group foo');
  15 ok( $group->AddMember( $root->PrincipalId ) );
  16
  17 my ( $baseurl, $m ) = RT::Test->started_ok;
  18 ok($m->login, 'logged in');
  19
  20 $m->follow_link_ok({text => "Tickets"}, "to query builder");
  21
  22 $m->form_name("BuildQuery");
  23
  24 $m->field(ValueOfid => 10 );
  25 $m->click("AddClause");
  26 $m->content_contains( 'id &lt; 10', "added new clause");
  27
  28 $m->form_name("BuildQuery");
  29 $m->field(SavedSearchDescription => 'user_saved');
  30 $m->click("SavedSearchSave");
  31
  32 $m->form_name("BuildQuery");
  33 is($m->value('SavedSearchDescription'), 'user_saved', "name is correct");
  34 like($m->value('SavedSearchOwner'), qr/^RT::User-\d+$/, "name is correct");
  35 ok(
  36     scalar grep { $_ eq "RT::Group-$gid" }
  37       $m->current_form->find_input('SavedSearchOwner')->possible_values,
  38     'found group foo'
  39 );
  40 $m->field(SavedSearchDescription => 'group_saved');
  41 $m->select(SavedSearchOwner => "RT::Group-$gid");
  42 $m->click("SavedSearchSave");
  43
  44 $m->form_name("BuildQuery");
  45 is($m->value('SavedSearchOwner'), "RT::Group-$gid", "privacy is correct");
  46 is($m->value('SavedSearchDescription'), 'group_saved', "name is correct");
  47 $m->select(SavedSearchOwner => "RT::User-$uid");
  48 $m->field(SavedSearchDescription => 'user_saved');
  49 $m->click("SavedSearchSave");
  50
  51
  52 $m->form_name("BuildQuery");
  53 is($m->value('SavedSearchOwner'), "RT::User-$uid", "privacy is correct");
  54 is($m->value('SavedSearchDescription'), 'user_saved', "name is correct");
  55 $m->select(SavedSearchOwner => "RT::System-1");
  56 $m->field(SavedSearchDescription => 'system_saved');
  57 $m->click("SavedSearchSave");
  58
  59 $m->form_name("BuildQuery");
  60 is($m->value('SavedSearchOwner'), "RT::System-1", "privacy is correct");
  61 is($m->value('SavedSearchDescription'), 'system_saved', "name is correct");
  62