_acs-authentication__auth_create_user (private)
_acs-authentication__auth_create_user
Defined in packages/acs-authentication/tcl/test/acs-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 {{ # create_user returns ok when trying to create a user # whose email already lives in the db. We should test # against that aa_run_with_teardown -rollback -test_code { # Successful creation array set user_info [acs::test::user::create] set user [acs_user::get -user_id $user_info(user_id)] set username [dict get $user username] set email [dict get $user email] set authority_id [dict get $user authority_id] aa_true "returns creation_status" [info exists user_info(creation_status)] if { [info exists user_info(creation_status)] } { aa_equals "creation_status for successful creation" $user_info(creation_status) "ok" if { $user_info(creation_status) ne "ok" } { aa_log "Element messages: '$user_info(element_messages)'" aa_log "Element messages: '$user_info(creation_message)'" } } aa_false "No creation_message for successful creation" {[info exists user_info(creation_message)] && $user_info(creation_message) ne ""} aa_true "returns user_id" [info exists user_info(user_id)] if { [info exists user_info(user_id)] } { aa_true "returns integer user_id ([array get user_info])" [regexp {[1-9][0-9]*} $user_info(user_id)] } # Duplicate email and username array unset user_info array set user_info [auth::create_user -username $username -email $email -authority_id $authority_id -first_names "Test3" -last_name "User" -password "changeme" -secret_question "no_question" -secret_answer "no_answer"] aa_equals "creation_status for duplicate email and username" $user_info(creation_status) "data_error" aa_true "element_messages exists" [info exists user_info(element_messages)] if { [info exists user_info(element_messages)] && $user_info(element_messages) ne "" } { array unset elm_msgs array set elm_msgs $user_info(element_messages) aa_true "element_message for username exists" {[info exists elm_msgs(username)] && $elm_msgs(username) ne ""} aa_true "element_message for email exists" {[info exists elm_msgs(email)] && $elm_msgs(email) ne ""} } set user_id [acs_user::get_by_username -authority_id $authority_id -username $username] if { $user_id ne "" } { acs_user::delete -user_id $user_id } # Missing first_names, last_name, email array unset user_info array set user_info [auth::create_user -authority_id $authority_id -username "auth_create_user2" -email "" -first_names "" -last_name "" -password "changeme" -secret_question "no_question" -secret_answer "no_answer"] aa_equals "creation_status is data_error" $user_info(creation_status) "data_error" aa_true "element_messages exists" [info exists user_info(element_messages)] if { [info exists user_info(element_messages)] && $user_info(element_messages) ne "" } { array unset elm_msgs array set elm_msgs $user_info(element_messages) if { [aa_true "element_message(email) exists" {[info exists elm_msgs(email)] && $elm_msgs(email) ne ""} ]} { aa_log "element_message(email) = $elm_msgs(email)" } if { [aa_true "element_message(first_names) exists" [info exists elm_msgs(first_names)] ]} { aa_log "element_message(first_names) = $elm_msgs(first_names)" } if { [aa_true "element_message(last_name) exists" [info exists elm_msgs(last_name)] ]} { aa_log "element_message(last_name) = $elm_msgs(last_name)" } } set user_id [acs_user::get_by_username -authority_id $authority_id -username auth_create_user2] if { $user_id ne "" } { acs_user::delete -user_id $user_id } # Malformed email array unset user_info array set user_info [auth::create_user -authority_id $authority_id -username [ad_generate_random_string] -email "not an email" -first_names "[ad_generate_random_string]<[ad_generate_random_string]" -last_name "[ad_generate_random_string]<[ad_generate_random_string]" -password [ad_generate_random_string] -secret_question [ad_generate_random_string] -secret_answer [ad_generate_random_string]] aa_equals "creation_status is data_error" $user_info(creation_status) "data_error" aa_true "element_messages exists" [info exists user_info(element_messages)] if { [info exists user_info(element_messages)] && $user_info(element_messages) ne "" } { array unset elm_msgs array set elm_msgs $user_info(element_messages) if { [aa_true "element_message(email) exists" [info exists elm_msgs(email)]] } { aa_log "element_message(email) = $elm_msgs(email)" } if { [aa_true "element_message(first_names) exists" [info exists elm_msgs(first_names)]] } { aa_log "element_message(first_names) = $elm_msgs(first_names)" } if { [aa_true "element_message(last_name) exists" [info exists elm_msgs(last_name)]] } { aa_log "element_message(last_name) = $elm_msgs(last_name)" } } } }} { 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_create_user (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle