[Rt-commit] r8666 - rtir/branches/2.3-EXPERIMENTAL/t

ruz at bestpractical.com ruz at bestpractical.com
Tue Aug 21 08:59:41 EDT 2007


Author: ruz
Date: Tue Aug 21 08:59:38 2007
New Revision: 8666

Modified:
   rtir/branches/2.3-EXPERIMENTAL/t/rtir-test.pl

Log:
* get rid of go_home

Modified: rtir/branches/2.3-EXPERIMENTAL/t/rtir-test.pl
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/t/rtir-test.pl	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/t/rtir-test.pl	Tue Aug 21 08:59:38 2007
@@ -29,7 +29,7 @@
     my $agent = new RT::Test::Web;
     $agent->cookie_jar( HTTP::Cookies->new );
     $agent->login($RTIR_TEST_USER, $RTIR_TEST_PASS);
-    go_home($agent);
+    $agent->get_ok("/RTIR/index.html", "Loaded home page");
     return $agent;
 }
 
@@ -42,12 +42,6 @@
     return 1;
 }
 
-sub go_home {
-    my $agent = shift;
-    my $weburl = RT->Config->Get('WebURL');
-    $agent->get_ok("$weburl/RTIR/index.html", "Loaded home page");
-}
-
 sub display_ticket {
     my $agent = shift;
     my $id = shift;
@@ -154,8 +148,7 @@
         'Incidents'        => 'Incident'
     );
 
-    go_home($agent);
-
+    $agent->get_ok("/RTIR/index.html", "Loaded home page");
     $agent->follow_link_ok({text => $queue, n => "1"}, "Followed '$queue' link");
     $agent->follow_link_ok({text => "New ". $type{ $queue }, n => "1"}, "Followed 'New $type{$queue}' link");
     
@@ -354,7 +347,8 @@
     my $cfs = shift || {};
     my $ir_id = shift;
 
-    $ir_id ? display_ticket($agent, $ir_id) : go_home($agent);
+    $ir_id ? display_ticket($agent, $ir_id)
+        : $agent->get_ok("/RTIR/index.html", "Loaded home page");
 
     if($ir_id) {
         # Select the "New" link from the Display page


More information about the Rt-commit mailing list