[Rt-commit] r13665 - in rt/3.8/trunk: t/web

[kyoki at bestpractical.com]

Author: kyoki
Date: Fri Jun 27 14:34:51 2008
New Revision: 13665

Added:
   rt/3.8/trunk/t/web/unlimited_search.t
Modified:
   rt/3.8/trunk/   (props changed)

Log:
 r23438 at nyx:  kyoki | 2008-06-27 14:34:41 -0400
 added test for unlimited search function


Added: rt/3.8/trunk/t/web/unlimited_search.t
==============================================================================
--- (empty file)
+++ rt/3.8/trunk/t/web/unlimited_search.t	Fri Jun 27 14:34:51 2008
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use strict;
+use Test::More tests => 5;
+
+use RT::Test;
+RT::Test->started_ok;
+
+my $ticket = RT::Ticket->new($RT::SystemUser);
+for ( 1 .. 75 ) {
+    $ticket->Create(
+        Subject   => 'Ticket ' . $_,
+        Queue     => 'General',
+        Owner     => 'root',
+        Requestor => 'unlimitedsearch at localhost',
+    );
+}
+
+my $agent = RT::Test::Web->new;
+ok $agent->login('root', 'password'), 'logged in as root';
+
+$agent->get_ok('/Search/Build.html');
+$agent->form_name('BuildQuery');
+$agent->field('idOp', '>');
+$agent->field('ValueOfid', '0');
+$agent->submit('AddClause');
+$agent->form_name('BuildQuery');
+$agent->field('RowsPerPage', '0');
+$agent->submit('DoSearch');
+$agent->follow_link_ok({text=>'Show Results'});
+
+$agent->content_like(qr/Ticket 75/);