_acs-tcl__whos_online__check_online_visibility (private)
_acs-tcl__whos_online__check_online_visibility
Defined in packages/acs-tcl/tcl/test/whos-online-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] aa_run_with_teardown -test_code { #--------------------------------------------------------------------------------------------------- #Test num_users #--------------------------------------------------------------------------------------------------- set logged_users [whos_online::num_users] aa_log "Logged users: $logged_users" # Login user set user_info [acs::test::user::create -admin -user_id $user_id] set d [acs::test::http -user_id $user_id /] set logged_users [whos_online::num_users] aa_true "New user logged - Users logged: $logged_users" { $logged_users > 0 } #--------------------------------------------------------------------------------------------------- #Test set_invisible #--------------------------------------------------------------------------------------------------- aa_log "User [dict get $user_info email] is visible" whos_online::set_invisible $user_id aa_true "User [dict get $user_info email] is Invisible" {[nsv_exists invisible_users $user_id] == 1 } #--------------------------------------------------------------------------------------------------- #Test all-invisible_user_ids #--------------------------------------------------------------------------------------------------- aa_true "User [dict get $user_info email] user_id $user_id is in the invisible list ([whos_online::all_invisible_user_ids])" {$user_id in [whos_online::all_invisible_user_ids]} #--------------------------------------------------------------------------------------------------- #Test unset_invisible #--------------------------------------------------------------------------------------------------- aa_log "User [dict get $user_info email] is invisible" whos_online::unset_invisible $user_id aa_false "User [dict get $user_info email] is Visible" {[whos_online::user_invisible_p $user_id ] == 1 } #--------------------------------------------------------------------------------------------------- #Test user_ids #--------------------------------------------------------------------------------------------------- aa_true "User [dict get $user_info email] user_id $user_id is in the visible list ([whos_online::user_ids])" {$user_id in [whos_online::user_ids]} } -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" "whos_online__check_online_visibility (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle