_acs-automated-testing__webtest_example (private)
_acs-automated-testing__webtest_example
Defined in packages/acs-automated-testing/tcl/test/acs-automated-testing-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_run_with_teardown -test_code { set user_id [db_nextval acs_object_id_seq] # Create test user set user_info [acs::test::user::create -user_id $user_id] set request_info [list session user_info $user_info] acs::test::confirm_email -user_id $user_id ######################################################################################## aa_section "Visit homepage as anonymous user, last name of user should not show up" ######################################################################################## set d [acs::test::http /] acs::test::reply_contains_no $d [dict get $user_info last_name] # Login user #set d [acs::test::login $user_info] ######################################################################################## aa_section "Visit homepage with request_info, should login, last name of user should be contained" ######################################################################################## aa_log "USER_INFO $user_info" set d [acs::test::http -depth 3 -user_info $user_info /] acs::test::reply_has_status_code $d 200 acs::test::reply_contains $d [dict get $user_info last_name] aa_equals "login [dict get $d login]" [dict get $d login] via_login aa_true "cookies are not empty '[dict get $d session cookies]'" {[dict get $d session cookies] ne ""} aa_false "cookies are not empty '[dict get $d session cookies]'" {[dict get $d session cookies] eq ""} ######################################################################################## aa_section "Make a second request, now the cookie should be used" ######################################################################################## set d [acs::test::http -depth 3 -last_request $d /] acs::test::reply_has_status_code $d 200 acs::test::reply_contains $d [dict get $user_info last_name] aa_equals "login [dict get $d login]" [dict get $d login] via_cookie ######################################################################################## aa_section "Logout user" ######################################################################################## set d [acs::test::logout -last_request $d] ######################################################################################## aa_section "Visit homepage, last name of user should not show up" ######################################################################################## set d [acs::test::http -last_request $d /] acs::test::reply_contains_no $d [dict get $user_info last_name] } -teardown_code { acs::test::user::delete -user_id $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" "webtest_example (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle