_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