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.20 -r1.53.2.21
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	4 Oct 2021 10:12:12 -0000	1.53.2.20
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	5 Oct 2021 16:25:20 -0000	1.53.2.21
@@ -447,15 +447,24 @@
     -procs {
         auth::password::can_change_p
         auth::test::get_password_vars
+        auth::password::can_reset_p
+        auth::password::can_retrieve_p
     } \
-    auth_password_can_change_p {
-    Test the auth::password::can_change_p proc.
+    auth_password_can_change_reset_retrieve_p {
+        Test auth::password::can_change_p, auth::password::can_reset_p
+        and auth::password::can_retrieve_p.
 } {
     auth::test::get_password_vars -array_name test_vars
 
-    aa_equals "Should return 1 when CanChangePassword is true for the local driver " \
+    aa_equals "auth::password::can_change_p should return 1 when CanChangePassword is true for the local driver " \
         [auth::password::can_change_p -user_id $test_vars(user_id)] \
         "1"
+    aa_equals "auth::password::can_reset_p should return 1 for the local driver " \
+        [auth::password::can_reset_p -authority_id $test_vars(authority_id)] \
+        "1"
+    aa_equals "auth::password::can_retrieve_p return 1 for the local driver " \
+        [auth::password::can_retrieve_p -authority_id $test_vars(authority_id)] \
+        "1"
 }
 
 aa_register_case  \