[Rt-commit] r8312 - in rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT: .

[ruz at bestpractical.com]

Author: ruz
Date: Mon Jul 30 11:46:27 2007
New Revision: 8312

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test/Web.pm

Log:
* rt_base_url returns url of an existing server if the option is used

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm	Mon Jul 30 11:46:27 2007
@@ -7,8 +7,7 @@
 
 use File::Temp;
 my $config;
-my $port;
-my $existing_server;
+our ($existing_server, $port);
 my $mailsent;
 
 BEGIN {

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test/Web.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test/Web.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test/Web.pm	Mon Jul 30 11:46:27 2007
@@ -5,9 +5,11 @@
 
 use base qw(Test::WWW::Mechanize);
 
+require RT::Test;
 require Test::More;
 
 sub rt_base_url {
+    return $RT::Test::existing_server if $RT::Test::existing_server;
     return "http://localhost:" . RT->Config->Get('WebPort') . RT->Config->Get('WebPath') . "/";
 }