_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