rt/t/web/dashboards-search-cache.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3
   4 use RT::Test tests => 20;
   5 my ($baseurl, $m) = RT::Test->started_ok;
   6
   7 my $url = $m->rt_base_url;
   8
   9 ok($m->login, 'logged in');
  10
  11 # create a search
  12 $m->follow_link_ok({text => 'Tickets'}, 'to query builder');
  13 $m->form_name('BuildQuery');
  14
  15 $m->field(ValueOfid => 10 );
  16 $m->click('AddClause');
  17 $m->text_contains( 'id < 10', 'added new clause');
  18
  19 $m->form_name('BuildQuery');
  20 $m->field(SavedSearchDescription => 'Original Name');
  21 $m->click('SavedSearchSave');
  22
  23 # create a dashboard
  24 $m->get_ok("$url/Dashboards/Modify.html?Create=1");
  25 $m->form_name('ModifyDashboard');
  26 $m->field('Name' => 'cachey dashboard');
  27 $m->click_button(value => 'Create');
  28 $m->text_contains('Saved dashboard cachey dashboard');
  29
  30 my ($dashboard_id) = $m->content =~ /name="id" value="(\d+)"/;
  31 ok($dashboard_id, "got an ID, $dashboard_id");
  32
  33 # add the search to the dashboard
  34 $m->follow_link_ok({text => 'Content'});
  35 my $form = $m->form_name('Dashboard-Searches-body');
  36 my @input = $form->find_input('Searches-body-Available');
  37 my ($search) =
  38   map { ( $_->possible_values )[1] }
  39   grep { ( $_->value_names )[1] =~ /Saved Search: Original Name/ } @input;
  40 $form->value('Searches-body-Available' => $search );
  41 $m->click_button(name => 'add');
  42 $m->text_contains('Dashboard updated');
  43
  44 # subscribe to the dashboard
  45 $m->follow_link_ok({text => 'Subscription'});
  46 $m->text_contains('Saved Search: Original Name');
  47 $m->form_name('SubscribeDashboard');
  48 $m->click_button(name => 'Save');
  49 $m->text_contains('Subscribed to dashboard cachey dashboard');
  50
  51 # rename the search
  52 $m->follow_link_ok({text => 'Tickets'}, 'to query builder');
  53 $form = $m->form_name('BuildQuery');
  54 @input = $form->find_input('SavedSearchLoad');
  55 ($search) =
  56   map { ( $_->possible_values )[1] }
  57   grep { ( $_->value_names )[1] =~ /Original Name/ } @input;
  58 $form->value('SavedSearchLoad' => $search );
  59 $m->click_button(value => 'Load');
  60 $m->text_contains('Loaded saved search "Original Name"');
  61
  62 $m->form_name('BuildQuery');
  63 $m->field('SavedSearchDescription' => 'New Name');
  64 $m->click_button(value => 'Update');
  65 $m->text_contains('Updated saved search "New Name"');
  66
  67 # check subscription page again
  68 $m->get_ok("/Dashboards/Subscription.html?id=$dashboard_id");
  69 TODO: {
  70     local $TODO = 'we cache search names too aggressively';
  71     $m->text_contains('Saved Search: New Name');
  72     $m->text_unlike(qr/Saved Search: Original Name/); # t-w-m lacks text_lacks
  73 }