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.6 -r1.7
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	27 Aug 2003 15:48:23 -0000	1.6
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	29 Aug 2003 14:38:30 -0000	1.7
@@ -242,8 +242,8 @@
         }
 }
 
-aa_register_case auth_password_forgotten {
-    Test the auth::password::forgotten proc.
+aa_register_case auth_password_recovver {
+    Test the auth::password::recover_password proc.
 
     @author Simon Carstensen
 } {
@@ -262,7 +262,7 @@
     aa_run_with_teardown \
         -rollback \
         -test_code {
-            array set password_result [auth::password::forgotten \
+            array set password_result [auth::password::recover_password \
                                            -authority_id $test_vars(authority_id) \
                                            -username $test_vars(username)]
 
@@ -280,8 +280,8 @@
 
     # With user info
     set url [auth::password::get_forgotten_url -authority_id $test_vars(authority_id) -username $test_vars(username)]
-    aa_true "there is a local forgotten-password page with user info" [regexp {forgotten-password} $url]
-    
+    aa_true "there is a local forgotten-password page with user info" [regexp {recover-password} $url]
+
     set url [auth::password::get_forgotten_url -authority_id $test_vars(authority_id) -username $test_vars(username) -remote_only]
     aa_equals "cannot get remote url with missing forgotten_pwd_url" $url ""