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 -N -r1.53.2.17 -r1.53.2.18
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	16 Feb 2021 20:59:02 -0000	1.53.2.17
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	2 Mar 2021 10:32:04 -0000	1.53.2.18
@@ -880,6 +880,7 @@
         parameter::set_value
 
         util_text_to_url
+        auth::create_local_account
     } \
     auth_use_email_for_login_p {
     Test auth::UseEmailForLoginP
@@ -921,15 +922,22 @@
             set email [string tolower "[ad_generate_random_string]@foobar.com"]
             set password [ad_generate_random_string]
 
-            array set result [auth::create_user \
-                                  -authority_id $authority_id \
-                                  -email $email \
-                                  -password $password \
-                                  -first_names [ad_generate_random_string] \
-                                  -last_name [ad_generate_random_string] \
-                                  -secret_question [ad_generate_random_string] \
-                                  -secret_answer [ad_generate_random_string] \
-                                  -screen_name [ad_generate_random_string]]
+            ad_try {
+                array set result [auth::create_user \
+                                      -authority_id $authority_id \
+                                      -email $email \
+                                      -password $password \
+                                      -first_names [ad_generate_random_string] \
+                                      -last_name [ad_generate_random_string] \
+                                      -secret_question [ad_generate_random_string] \
+                                      -secret_answer [ad_generate_random_string] \
+                                      -screen_name [ad_generate_random_string]]
+            } on ok {r} {
+                aa_true "auth::create_user with no username succeeded" 1
+            } on error {errorMsg} {
+                aa_false  "auth::create_user with no username failed: '$errorMsg'" 1
+                set result(creation_status) "NOT OK"
+            }
 
             aa_equals "Registration OK" $result(creation_status) "ok"