[Rt-commit] r8420 - in rtfm/branches/2.1-TESTING: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Aug  7 11:07:54 2007
New Revision: 8420

Modified:
   rtfm/branches/2.1-TESTING/   (props changed)
   rtfm/branches/2.1-TESTING/t/04interface.t

Log:
 r36968 at gorgoroth:  sartak | 2007-08-07 10:46:55 -0400
 local copy of RTFM
 r36970 at gorgoroth:  sartak | 2007-08-07 11:03:15 -0400
 Have t/04interface.t use RT's port


Modified: rtfm/branches/2.1-TESTING/t/04interface.t
==============================================================================
--- rtfm/branches/2.1-TESTING/t/04interface.t	(original)
+++ rtfm/branches/2.1-TESTING/t/04interface.t	Tue Aug  7 11:07:54 2007
@@ -20,6 +20,12 @@
 use_ok 'RT::FM::Topic';
 use_ok 'RT::FM::Article';
 
+BEGIN {
+$RT::WebPort ||= '80';
+$RT::WebPath ||= ''; # Shut up a warning
+};
+use constant BaseURL => "http://localhost:".$RT::WebPort.$RT::WebPath."/";
+
 # Variables to test return values
 my ($ret, $msg);
 
@@ -150,7 +156,7 @@
 
 #### Right.  That's our data.  Now begin the real testing.
 
-my $url = "http://localhost".$RT::WebPath."/";
+my $url = BaseURL;
 my $m = Test::WWW::Mechanize->new;
 isa_ok($m, 'Test::WWW::Mechanize');
 ok(1, "Connecting to ".$url);