_acs-tcl__party_procs_test (private)
_acs-tcl__party_procs_test
Defined in packages/acs-tcl/tcl/test/community-core-test-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 user_id [db_nextval acs_object_id_seq] set username "[ad_generate_random_string]" set email "${username}@test.test" set password [ad_generate_random_string] set first_names [ad_generate_random_string] set last_name [ad_generate_random_string] set url "url[ad_generate_random_string]" array set user_info [auth::create_user -user_id $user_id -authority_id [auth::authority::get_id -short_name "acs_testing"] -username $username -email $email -first_names $first_names -last_name $last_name -password $password -secret_question [ad_generate_random_string] -secret_answer [ad_generate_random_string]] if { $user_info(creation_status) ne "ok" } { # Could not create user error "Could not create test user with username=$username user_info=[array get user_info]" } set user_info(password) $password set user_info(email) $email aa_log "Created user with email=\"$email\" and password=\"$password\"" aa_run_with_teardown -rollback -test_code { aa_true "correct party_id" [string match [party::get_by_email -email $email] $user_info(user_id)] set updated_email [string toupper "${email}2"] party::update -party_id $user_info(user_id) -email $updated_email -url $url aa_equals "Email case is lower" [party::get -party_id $user_info(user_id) -element email] [string tolower "${email}2"] aa_true "correct party with new mail" [string match [party::get_by_email -email "${email}2"] $user_info(user_id)] } }} { 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" "party_procs_test (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle