rt/t/web/unlimited_search.t

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