_acs-subsite__password_recovery_page (private)
_acs-subsite__password_recovery_page
Defined in packages/acs-subsite/tcl/test/acs-subsite-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 {{ set main_subsite_id [subsite::main_site_id] set acs_kernel_id [ad_acs_kernel_id] set use_email_for_login_p [auth::UseEmailForLoginP] set email_forgotten_password_p [parameter::get -boolean -parameter EmailForgottenPasswordP -package_id $main_subsite_id -default 1] try { foreach { test_use_email_for_login_p test_email_forgotten_password_p } { 1 1 1 0 0 1 0 0 } { set pr [expr {$test_email_forgotten_password_p ? "enabled" : "disabled"}] set ue [expr {$test_use_email_for_login_p ? "" : "not"}] aa_section "Password recovery $pr, $ue using email for login" if {$test_email_forgotten_password_p} { set expected_status_code 200 } else { set expected_status_code 403 } parameter::set_value -package_id $acs_kernel_id -parameter UseEmailForLoginP -value $test_use_email_for_login_p parameter::set_value -package_id $main_subsite_id -parameter EmailForgottenPasswordP -value $test_email_forgotten_password_p aa_equals "auth::UseEmailForLoginP returns the expected value" [auth::UseEmailForLoginP] $test_use_email_for_login_p set d [acs::test::http /register/recover-password] acs::test::reply_has_status_code $d $expected_status_code } } finally { parameter::set_value -package_id $acs_kernel_id -parameter UseEmailForLoginP -value $use_email_for_login_p parameter::set_value -package_id $main_subsite_id -parameter EmailForgottenPasswordP -value $email_forgotten_password_p } }} { 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" "password_recovery_page (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle