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

[jesse at bestpractical.com]

Author: jesse
Date: Wed Nov 30 16:01:17 2005
New Revision: 4170

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/07acl.t
Log:
 r19568 at truegrounds:  jesse | 2005-11-30 15:30:22 -0500
  r18899 at truegrounds:  jesse | 2005-11-14 13:40:24 -0500
  RT-Ticket: 7121 
  RT-Status: resolved
  RT-Update: correspond
  
  * Patch from Todd Chapman to make the web based acl tests honor RT::WebPath
  
 


Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/07acl.t
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/07acl.t	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/07acl.t	Wed Nov 30 16:01:17 2005
@@ -33,9 +33,9 @@
 login($agent, $user_obj);
 
 # Test for absence of Configure and Preferences tabs.
-ok(!$agent->find_link( url => '/Admin/',
+ok(!$agent->find_link( url => "$RT::WebPath/Admin/",
 		       text => 'Configuration'), "No config tab" );
-ok(!$agent->find_link( url => '/User/Prefs.html',
+ok(!$agent->find_link( url => "$RT::WebPath/User/Prefs.html",
 		       text => 'Preferences'), "No prefs pane" );
 
 # Now test for their presence, one at a time.  Sleep for a bit after
@@ -47,10 +47,7 @@
 $agent->reload;
 
 ok($agent->{'content'} =~ /Logout/i, "Reloaded page successfully");
-
-
-
-ok($agent->find_link( url => '/Admin/',
+ok($agent->find_link( url => "$RT::WebPath/Admin/",
 		       text => 'Configuration'), "Found config tab" );
 my ($revokeid,$revokemsg) =$user_obj->PrincipalObj->RevokeRight(Right => 'ShowConfigTab');
 ok ($revokeid,$revokemsg);
@@ -58,12 +55,12 @@
 ok ($grantid,$grantmsg);
 $agent->reload();
 ok($agent->{'content'} =~ /Logout/i, "Reloaded page successfully");
-ok($agent->find_link( url => '/User/Prefs.html',
+ok($agent->find_link( url => "$RT::WebPath/User/Prefs.html",
 		       text => 'Preferences'), "Found prefs pane" );
 ($revokeid,$revokemsg) = $user_obj->PrincipalObj->RevokeRight(Right => 'ModifySelf');
 ok ($revokeid,$revokemsg);
 # Good.  Now load the search page and test Load/Save Search.
-$agent->follow_link( url => '/Search/Build.html',
+$agent->follow_link( url => "$RT::WebPath/Search/Build.html",
 		     text => 'Tickets');
 is($agent->{'status'}, 200, "Fetched search builder page");
 ok($agent->{'content'} !~ /Load saved search/i, "No search loading box");