_acs-authentication__auth__verify_account_status (private)
_acs-authentication__auth__verify_account_status
Defined in packages/acs-authentication/tcl/test/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 {{ try { set endpoint_name test__auth__verify_account_status ns_register_proc GET $endpoint_name { ad_conn -set auth_level somenonsense auth::verify_account_status ns_return 200 text/plain [ad_conn auth_level] } set user_info [acs::test::user::create -admin] set user_id [dict get $user_info user_id] acs::test::confirm_email -user_id $user_id set d [::acs::test::login $user_info] set expected_statuses {ok secure} aa_section "Accessing the test endpoint as user '$user_id'" set d [acs::test::http -last_request $d -method GET /$endpoint_name] acs::test::reply_has_status_code $d 200 set auth_level [dict get $d body] aa_true "Returned '$auth_level' is among the expected ones '$expected_statuses'" {$auth_level in $expected_statuses} aa_section "Accessing the test endpoint as nobody" set d [acs::test::http -method GET /$endpoint_name] acs::test::reply_has_status_code $d 200 aa_equals "Returned auth_level is 'none'" [dict get $d body] "none" } finally { ns_unregister_op GET $endpoint_name acs_user::delete -user_id $user_id -permanent } }} { 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__verify_account_status (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle