X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fweb%2Funlimited_search.t;h=6a5f69724db9f4eb160eed7ea8f0bf3ad02110f0;hb=de9d037528895f7151a9aead6724ce2df95f9586;hp=d98baaac0c6c6ec518ed2659cbebde27f160f814;hpb=63a268637b2d51a8766412617724b9436439deb6;p=freeside.git

diff --git a/rt/t/web/unlimited_search.t b/rt/t/web/unlimited_search.t
index d98baaac0..6a5f69724 100644
--- a/rt/t/web/unlimited_search.t
+++ b/rt/t/web/unlimited_search.t
@@ -1,13 +1,12 @@
-#!/usr/bin/perl
-
 use strict;
+use warnings;
 
-use RT::Test tests => 8;
-RT::Test->started_ok;
+use RT::Test tests => 85;
+my ($baseurl, $agent) = RT::Test->started_ok;
 
-my $ticket = RT::Ticket->new($RT::SystemUser);
+my $ticket = RT::Ticket->new(RT->SystemUser);
 for ( 1 .. 75 ) {
-    $ticket->Create(
+    ok $ticket->Create(
         Subject   => 'Ticket ' . $_,
         Queue     => 'General',
         Owner     => 'root',
@@ -15,7 +14,6 @@ for ( 1 .. 75 ) {
     );
 }
 
-my $agent = RT::Test::Web->new;
 ok $agent->login('root', 'password'), 'logged in as root';
 
 $agent->get_ok('/Search/Build.html');
@@ -27,7 +25,7 @@ $agent->form_name('BuildQuery');
 $agent->field('RowsPerPage', '0');
 $agent->submit('DoSearch');
 $agent->follow_link_ok({text=>'Show Results'});
-$agent->content_like(qr/Ticket 75/);
+$agent->content_contains("Ticket 75");
 
 $agent->follow_link_ok({text=>'New Search'});
 $agent->form_name('BuildQuery');
@@ -38,4 +36,4 @@ $agent->form_name('BuildQuery');
 $agent->field('RowsPerPage', '50');
 $agent->submit('DoSearch');
 $agent->follow_link_ok({text=>'Bulk Update'});
-$agent->content_unlike(qr/Ticket 51/);
+$agent->content_lacks("Ticket 51");