rt/t/web/unlimited_search.t

   1 use strict;
   2 use warnings;
   3
   4 use RT::Test tests => 85;
   5 my ($baseurl, $agent) = RT::Test->started_ok;
   6
   7 my $ticket = RT::Ticket->new(RT->SystemUser);
   8 for ( 1 .. 75 ) {
   9     ok $ticket->Create(
  10         Subject   => 'Ticket ' . $_,
  11         Queue     => 'General',
  12         Owner     => 'root',
  13         Requestor => 'unlimitedsearch@localhost',
  14     );
  15 }
  16
  17 ok $agent->login('root', 'password'), 'logged in as root';
  18
  19 $agent->get_ok('/Search/Build.html');
  20 $agent->form_name('BuildQuery');
  21 $agent->field('idOp', '>');
  22 $agent->field('ValueOfid', '0');
  23 $agent->submit('AddClause');
  24 $agent->form_name('BuildQuery');
  25 $agent->field('RowsPerPage', '0');
  26 $agent->submit('DoSearch');
  27 $agent->follow_link_ok({text=>'Show Results'});
  28 $agent->content_contains("Ticket 75");
  29
  30 $agent->follow_link_ok({text=>'New Search'});
  31 $agent->form_name('BuildQuery');
  32 $agent->field('idOp', '>');
  33 $agent->field('ValueOfid', '0');
  34 $agent->submit('AddClause');
  35 $agent->form_name('BuildQuery');
  36 $agent->field('RowsPerPage', '50');
  37 $agent->submit('DoSearch');
  38 $agent->follow_link_ok({text=>'Bulk Update'});
  39 $agent->content_lacks("Ticket 51");