[Rt-commit] r3095 - in rt/branches/QUEBEC-EXPERIMENTAL: . etc lib/RT/URI lib/t/regression

[jesse at bestpractical.com]

Author: jesse
Date: Wed Jun  8 23:03:09 2005
New Revision: 3095

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/etc/RT_SiteConfig.pm
   rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/URI/fsck_com_rt.pm
   rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/URI/t.pm
   rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/03web_compiliation_errors.t
   rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/06mailgateway.t
   rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/08web_cf_access.t
Log:
 r19651 at hualien:  jesse | 2005-06-08 18:31:22 -0400
  r17246 at hualien:  jesse | 2005-05-23 13:27:01 -0400
   r17006 at hualien (orig r2909):  glasser | 2005-05-22 17:03:29 -0400
   Put an obviously fake instead of possibly wrong path in an example command.`
   r17245 at hualien (orig r2932):  glasser | 2005-05-23 13:04:38 -0400
   Allow for base URL to be changed when doing regressions.
   (And kind of allow for Organization to be changed, except the mailgate
   test will still bite it if you do.)
  
 


Modified: rt/branches/QUEBEC-EXPERIMENTAL/etc/RT_SiteConfig.pm
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/etc/RT_SiteConfig.pm	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/etc/RT_SiteConfig.pm	Wed Jun  8 23:03:09 2005
@@ -12,7 +12,7 @@
 # going to run into trouble. To check your SiteConfig file, use
 # this comamnd:
 #
-#   perl -C /opt/rt3/etc/RT_SiteConfig.pm
+#   perl -C /path/to/your/etc/RT_SiteConfig.pm
 
 Set( $rtname, 'example.com');
 Set( $DevelMode => 1);

Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/URI/fsck_com_rt.pm
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/URI/fsck_com_rt.pm	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/URI/fsck_com_rt.pm	Wed Jun  8 23:03:09 2005
@@ -75,7 +75,7 @@
 ok ($uri->isa('RT::URI::base'), "It's an RT::URI::base");
 ok ($uri->isa('RT::Base'), "It's an RT::Base");
 
-is ($uri->LocalURIPrefix , 'fsck.com-rt://example.com');
+is ($uri->LocalURIPrefix , 'fsck.com-rt://'.$RT::Organization);
 
 =end testing
 

Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/URI/t.pm
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/URI/t.pm	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/URI/t.pm	Wed Jun  8 23:03:09 2005
@@ -47,7 +47,7 @@
 $uri->ParseURI($uristr);
 is(ref($uri->Object), "RT::Ticket", "Object loaded is a ticket");
 is($uri->Object->Id, 1, "Object loaded has correct ID");
-is($uri->URI, 'fsck.com-rt://example.com/ticket/1',
+is($uri->URI, 'fsck.com-rt://'.$RT::Organization.'/ticket/1',
    "URI object has correct URI string");
 
 =end testing

Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/03web_compiliation_errors.t
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/03web_compiliation_errors.t	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/03web_compiliation_errors.t	Wed Jun  8 23:03:09 2005
@@ -15,6 +15,8 @@
 
 $agent->cookie_jar($cookie_jar);
 
+use RT;
+RT::LoadConfig;
 
 use RT;
 RT::LoadConfig();

Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/06mailgateway.t
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/06mailgateway.t	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/06mailgateway.t	Wed Jun  8 23:03:09 2005
@@ -180,7 +180,7 @@
 To: rt\@example.com
 Subject: [example.com #@{[$tick->Id]}] This is a test of a reply as an unknown user
 
-Blah!
+Blah!  (Should not work.)
 Foob!
 EOF
 close (MAIL);
@@ -231,7 +231,7 @@
 To: rt\@example.com
 Subject: [example.com #@{[$tick->Id]}] This is a test of a comment as an unknown user
 
-Blah!
+Blah!  (Should not work.)
 Foob!
 EOF
 close (MAIL);

Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/08web_cf_access.t
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/08web_cf_access.t	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/08web_cf_access.t	Wed Jun  8 23:03:09 2005
@@ -22,7 +22,7 @@
 my $m = Test::WWW::Mechanize->new;
 isa_ok($m, 'Test::WWW::Mechanize');
 
-$m->get( BaseURL."?user=root;pass=password" );
+$m->get( $BaseURL."?user=root;pass=password" );
 $m->content_like(qr/Logout/, 'we did log in');
 $m->follow_link( text => 'Configuration' );
 $m->title_is(q/RT Administration/, 'admin screen');
@@ -87,7 +87,7 @@
 $m->follow_link( text => 'bplogo.gif' );
 $m->content_is(ImageFileContent, "it links to the uploaded image");
 
-$m->get( BaseURL );
+$m->get( $BaseURL );
 
 $m->follow_link( text => 'Tickets' );
 $m->follow_link( text => 'New Query' );