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.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 \