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.28 -r1.29 --- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl 19 Sep 2003 12:59:11 -0000 1.28 +++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl 29 Sep 2003 09:49:40 -0000 1.29 @@ -326,10 +326,15 @@ # create user we'll use for testing set user_id [ad_user_new "test2@user.com" "Test" "User" "changeme" "no_question" "no_answer"] + + # password_status "ok" set old_password "changeme" set new_password "changedyou" - array set auth_info [auth::password::change -user_id $user_id -old_password $old_password -new_password $new_password] + array set auth_info [auth::password::change \ + -user_id $user_id \ + -old_password $old_password \ + -new_password $new_password] aa_equals "Should return 'ok'" \ $auth_info(password_status) \ "ok"