_acs-authentication__auth_email_on_password_change (private)
_acs-authentication__auth_email_on_password_change
Defined in packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ aa_stub acs_mail_lite::send { set ::ns_sendmail_to $to_addr } aa_run_with_teardown -rollback -test_code { parameter::set_value -parameter EmailAccountOwnerOnPasswordChangeP -package_id [ad_acs_kernel_id] -value 1 set ::ns_sendmail_to {} array set result [acs::test::user::create] set user [acs_user::get_user_info -user_id $result(user_id)] set authority_id [dict get $user authority_id] set username [dict get $user username] set email $result(email) set password $result(password) aa_equals "Create user OK" $result(creation_status) "ok" set user_id $result(user_id) aa_equals "Authority from api is correct" [db_string sel { select authority_id from users where user_id = :user_id }] $authority_id # Change password array unset result set new_password [ad_generate_random_string] array set result [auth::password::change -user_id $user_id -old_password $password -new_password $new_password] if { ![aa_equals "Password change OK" $result(password_status) "ok"] } { aa_log "Message was: $result(password_message)" } # Check that we get email aa_equals "Email sent to user" [string tolower $::ns_sendmail_to] [string tolower $email] set ::ns_sendmail_to {ns_sendmail_UNCALLED} # Set parameter to false parameter::set_value -parameter EmailAccountOwnerOnPasswordChangeP -package_id [ad_acs_kernel_id] -value 0 # Change password array unset result set new_new_password [ad_generate_random_string] array set result [auth::password::change -user_id $user_id -old_password $new_password -new_password $new_new_password] aa_equals "Password change OK" $result(password_status) "ok" # Check that we do not get an email aa_equals "Email NOT sent to user" $::ns_sendmail_to {ns_sendmail_UNCALLED} ad_parameter_cache -delete [ad_acs_kernel_id] EmailAccountOwnerOnPasswordChangeP } }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "auth_email_on_password_change (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle