rt/t/web/saved_search_context.t

   1 use strict;
   2 use warnings;
   3
   4 use RT::Test no_plan => 1;
   5 my ( $url, $m ) = RT::Test->started_ok;
   6
   7 my $ticket = RT::Ticket->new(RT->SystemUser);
   8 for (['x', 50], ['y', 40], ['z', 30]) {
   9     $ticket->Create(
  10         Subject   => $_->[0],
  11         Queue     => 'general',
  12         Owner     => 'root',
  13         Priority  => $_->[1],
  14         Requestor => 'root@localhost',
  15     );
  16 }
  17
  18 ok( $m->login, 'logged in' );
  19
  20 $m->get($url . '/Search/Build.html?NewQuery=1');
  21 $m->form_name('BuildQuery');
  22 $m->field(ValueOfPriority => 45);
  23 $m->click('DoSearch');
  24 #RT->Logger->error($m->uri); sleep 100;
  25 #{ open my $fh, '>', 'm.html'; print $fh $m->content; close $fh; }; die;
  26 $m->text_contains('Found 2 tickets');
  27
  28 $m->follow_link(id => 'page-edit_search');
  29 $m->form_name('BuildQuery');
  30 $m->field(ValueOfAttachment => 'z');
  31 $m->click('DoSearch');
  32
  33 $m->text_contains('Found 1 ticket');
  34
  35 $m->follow_link(id => 'page-bulk');
  36
  37 $m->form_name('BulkUpdate');
  38 ok(!$m->value('UpdateTicket2'), "There is no Ticket #2 in the search's bulk update");
  39
  40 sub edit_search_link_has {
  41     my ($m, $id, $msg) = @_;
  42
  43     local $Test::Builder::Level = $Test::Builder::Level + 1;
  44
  45     (my $dec_id = $id) =~ s/:/%3A/g;
  46
  47     my $chart_url = $m->find_link(id => 'page-edit_search')->url;
  48     like(
  49         $chart_url, qr{SavedSearchId=\Q$dec_id\E},
  50         $msg || 'Search link matches the pattern we expected'
  51     );
  52 }
  53
  54 diag("Test search context");
  55 {
  56     $m->get_ok($url . '/Search/Build.html');
  57     $m->form_name('BuildQuery');
  58     $m->field(ValueOfPriority => 45);
  59     $m->click('AddClause');
  60     $m->form_name('BuildQuery');
  61     $m->set_fields(
  62         SavedSearchDescription => 'my saved search',
  63     );
  64     $m->click('SavedSearchSave');
  65
  66     my $saved_search_id = $m->form_name('BuildQuery')->value('SavedSearchId');
  67     edit_search_link_has($m, $saved_search_id);
  68 }