_acs-authentication__auth__get_user_id (private)
_acs-authentication__auth__get_user_id
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 {{ # We will just mess about with the ad_conn variables used # inside the proc to simulate a few possible situations. set prev_untrusted_user_id [ad_conn untrusted_user_id] set prev_account_status [ad_conn account_status] set prev_auth_level [ad_conn auth_level] set user_id [ad_conn user_id] set bogus_user [db_string get_bogus_user { select max(user_id) + 1 from users }] aa_run_with_teardown -rollback -test_code { foreach { untrusted_user_id account_status auth_level wanted_level wanted_account_status expected_result } [list 0 whatever none 1234 whatever 0 $user_id ok ok ok ok $user_id $user_id ok ok secure ok [expr {[security::https_available_p] ? 0 : $user_id}] $user_id ok secure secure ok $user_id $user_id ok secure secure whatever $user_id $bogus_user ok secure secure ok $bogus_user $bogus_user ko secure secure ok 0 ] { ad_conn -set untrusted_user_id $untrusted_user_id ad_conn -set account_status $account_status ad_conn -set auth_level $auth_level set v [auth::get_user_id -level $wanted_level -account_status $wanted_account_status] aa_equals "For user '$untrusted_user_id', level '$wanted_level', account_status '$wanted_account_status' the result should be '$expected_result'" $v $expected_result } } -teardown_code { ad_conn -set untrusted_user_id $prev_untrusted_user_id ad_conn -set account_status $prev_account_status ad_conn -set auth_level $prev_auth_level } }} { 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__get_user_id (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle