_acs-authentication__auth_user_info_implementations (private)
_acs-authentication__auth_user_info_implementations
Defined in packages/acs-authentication/tcl/test/local-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_equals "GetParameters returns nothing" [acs_sc::invoke -contract auth_user_info -operation GetParameters -impl local] "" set authority_id [auth::authority::get] if {![db_0or1row get_any_user { select user_id, first_names, last_name, username, email from cc_users where authority_id = :authority_id fetch first 1 rows only } -column_array user_info]} { aa_log "No user in the default authority. Exit immediately." return } set result(info_status) [auth::get_local_account_status -user_id $user_info(user_id)] set result(info_message) "" set result(user_info) [array get user_info] set sc_result [acs_sc::invoke -contract auth_user_info -operation GetUserInfo -impl local -call_args [list $user_info(username) [list]]] foreach key {info_status info_message} { aa_equals "'$key' is correct" [dict get $sc_result $key] $result($key) } foreach key [dict keys $result(user_info)] { aa_equals "'$key' is correct" [dict get $sc_result user_info $key] [dict get $result(user_info) $key] } }} { 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_user_info_implementations (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle