Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	9 Sep 2003 11:14:00 -0000	1.22
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	9 Sep 2003 12:10:40 -0000	1.23
@@ -477,8 +477,11 @@
                 change_pwd_url ""
                 register_impl_id ""
                 register_url ""
+                get_doc_impl_id ""
+                process_doc_impl_id ""
+                snapshot_p "f"
+                batch_sync_enabled_p "f"
             }
-
             
             set authority_id [auth::authority::create -array columns]
 
@@ -492,7 +495,6 @@
 
             # Edit authority and test that it has actually changed.
             array set columns {
-                short_name "test2"
                 pretty_name "Test authority2"
                 help_contact_text "Blah blah2"
                 enabled_p "f"
@@ -501,6 +503,7 @@
                 change_pwd_url "foobar.com"
                 register_url "foobar.com"
             }
+            set columns(short_name) [ad_generate_random_string]
 
             auth::authority::edit \
                 -authority_id $authority_id \