[Rt-commit] r3113 - in rt/branches/QUEBEC-EXPERIMENTAL: . lib/t/regression

[jesse at bestpractical.com]

Author: jesse
Date: Wed Jun  8 23:07:56 2005
New Revision: 3113

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/02basic_web.t
   rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/08web_cf_access.t
Log:
 r19674 at hualien:  jesse | 2005-06-08 23:02:40 -0400
  * Minor cleanups from the quebec merge


Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/02basic_web.t
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/02basic_web.t	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/02basic_web.t	Wed Jun  8 23:07:56 2005
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use Test::More tests => 17;
+use Test::More tests => 19;
 use WWW::Mechanize;
 use HTTP::Request::Common;
 use HTTP::Cookies;

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:07:56 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' );