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.23 -r1.24
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	9 Sep 2003 12:10:40 -0000	1.23
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	10 Sep 2003 08:58:57 -0000	1.24
@@ -466,7 +466,6 @@
 
             # Add authority and test that it was added correctly.
             array set columns {
-                short_name "test"
                 pretty_name "Test authority"
                 help_contact_text "Blah blah"
                 enabled_p "t"
@@ -482,6 +481,7 @@
                 snapshot_p "f"
                 batch_sync_enabled_p "f"
             }
+            set columns(short_name) [ad_generate_random_string]
             
             set authority_id [auth::authority::create -array columns]