[Rt-commit] r7680 - in rt/branches/3.7-EXPERIMENTAL: .

[jesse at bestpractical.com]

Author: jesse
Date: Tue Apr 24 14:32:52 2007
New Revision: 7680

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/t/regression/17custom_search.t

Log:
 r56021 at pinglin:  jesse | 2007-04-24 14:25:27 -0400
 * Made 17custom_search.t safely rerunnable


Modified: rt/branches/3.7-EXPERIMENTAL/lib/t/regression/17custom_search.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/t/regression/17custom_search.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/t/regression/17custom_search.t	Tue Apr 24 14:32:52 2007
@@ -13,17 +13,10 @@
 
 # reset preferences for easier test?
 
-my $tix = RT::Tickets->new($RT::SystemUser);
-
-$tix->UnLimit();
-
-while(my $tick = $tix->Next) {
-$tick->SetStatus('resolved');
-}
 
 
 my $t = RT::Ticket->new($RT::SystemUser);
-$t->Create(Subject => 'for custom search', Queue => 'general',
+$t->Create(Subject => 'for custom search'.$$, Queue => 'general',
 	   Owner => 'root', Requestor => 'customsearch at localhost');
 ok(my $id = $t->id, 'created ticket for custom search');
 
@@ -32,8 +25,7 @@
 
 $m->get( BaseURL."?user=root;pass=password" );
 $m->content_like(qr/Logout/, 'we did log in');
-
-my $t_link = $m->find_link( text => "for custom search" );
+my $t_link = $m->find_link( text => "for custom search".$$ );
 like ($t_link->url, qr/$id/, 'link to the ticket we created');
 
 $m->content_lacks ('customsearch at localhost', 'requestor not displayed ');