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.53.2.1 -r1.53.2.2
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	21 Mar 2019 15:22:43 -0000	1.53.2.1
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	3 Apr 2019 08:05:28 -0000	1.53.2.2
@@ -221,8 +221,11 @@
         -rollback \
         -test_code {
 
+            set authority_id [auth::authority::get_id -short_name "acs_testing"]
+
             # Successful creation
             array set user_info [auth::create_user \
+                                     -authority_id $authority_id \
                                      -username "auth_create_user1" \
                                      -email "auth_create_user1@test_user.com" \
                                      -first_names "Test" \
@@ -253,6 +256,7 @@
             # Duplicate email and username
             array unset user_info
             array set user_info [auth::create_user \
+                                     -authority_id $authority_id \
                                      -username "auth_create_user1" \
                                      -email "auth_create_user1@test_user.com" \
                                      -first_names "Test3" \
@@ -272,14 +276,17 @@
                 aa_true "element_message for email exists" \
 		    {[info exists elm_msgs(email)] && $elm_msgs(email) ne ""}
             }
-            set user_id [acs_user::get_by_username -username auth_create_user1]
+            set user_id [acs_user::get_by_username \
+                             -authority_id $authority_id \
+                             -username auth_create_user1]
             if { $user_id ne "" } {
                 acs_user::delete -user_id $user_id
             }
 
             # Missing first_names, last_name, email
             array unset user_info
             array set user_info [auth::create_user \
+                                     -authority_id $authority_id \
                                      -username "auth_create_user2" \
                                      -email "" \
                                      -first_names "" \
@@ -306,14 +313,17 @@
                     aa_log "element_message(last_name) = $elm_msgs(last_name)"
                 }
             }
-            set user_id [acs_user::get_by_username -username auth_create_user2]
+            set user_id [acs_user::get_by_username \
+                             -authority_id $authority_id \
+                             -username auth_create_user2]
             if { $user_id ne "" } {
                 acs_user::delete -user_id $user_id
             }
 
             # Malformed email
             array unset user_info
             array set user_info [auth::create_user \
+                                     -authority_id $authority_id \
                                      -username [ad_generate_random_string] \
                                      -email "not an email" \
                                      -first_names "[ad_generate_random_string]<[ad_generate_random_string]" \