[Rt-commit] [svn] r1550 - rt/branches/3.3-TESTING/lib/t

[tla at pallas.eruditorum.org]

Author: tla
Date: Wed Sep 22 17:32:53 2004
New Revision: 1550

Modified:
   rt/branches/3.3-TESTING/lib/t/07acl.pl.in
Log:
Add sleeps for the right granting; try a pattern-match that works this time.



Modified: rt/branches/3.3-TESTING/lib/t/07acl.pl.in
==============================================================================
--- rt/branches/3.3-TESTING/lib/t/07acl.pl.in	(original)
+++ rt/branches/3.3-TESTING/lib/t/07acl.pl.in	Wed Sep 22 17:32:53 2004
@@ -52,17 +52,20 @@
 # Now test for their presence, one at a time.
 my ($val, $msg) = $user_obj->PrincipalObj->GrantRight(Right => 'ShowConfigTab');
 ok($val, "Grant the right. $msg");
+sleep(10);
 $agent->reload();
 ok($agent->{'content'} =~ /Logout/i, "Reloaded page successfully");
 ok($agent->find_link( url => '/Admin/',
 		       text => 'Configuration'), "Found config tab" );
 $user_obj->PrincipalObj->RevokeRight(Right => 'ShowConfigTab');
 $user_obj->PrincipalObj->GrantRight(Right => 'ModifySelf');
+sleep(10);
 $agent->reload();
 ok($agent->{'content'} =~ /Logout/i, "Reloaded page successfully");
 ok($agent->find_link( url => '/User/Prefs.html',
 		       text => 'Preferences'), "Found prefs pane" );
 $user_obj->PrincipalObj->RevokeRight(Right => 'ModifySelf');
+sleep(10);
 
 # Good.  Now load the search page and test Load/Save Search.
 $agent->follow_link( url => '/Search/Build.html',
@@ -72,15 +75,18 @@
 ok($agent->{'content'} !~ /Saved searches/i, "No saved searches box");
 
 $user_obj->PrincipalObj->GrantRight(Right => 'LoadSavedSearch');
+sleep(10);
 $agent->reload();
 ok($agent->{'content'} =~ /Load saved search/i, "Search loading box exists");
-ok($agent->{'content'} !~ /Privacy.*Description/mi, "Still no saved searches box");
+ok($agent->{'content'} !~ /input\s+type=.submit.\s+name=.Save./i, 
+   "Still no saved searches box");
 
 $user_obj->PrincipalObj->GrantRight(Right => 'CreateSavedSearch');
+sleep(10);
 $agent->reload();
 ok($agent->{'content'} =~ /Load saved search/i, 
-   "Search loading box stillexists");
-ok($agent->{'content'} =~ /Privacy.*Description/mi, 
+   "Search loading box still exists");
+ok($agent->{'content'} =~ /input\s+type=.submit.\s+name=.Save./i, 
    "Saved searches box exists");
 
 1;