_acs-tcl__demote_promote_a_user (private)
_acs-tcl__demote_promote_a_user
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 {{ aa_run_with_teardown -rollback -test_code { aa_section "Create user" set user [acs::test::user::create -admin] set user_id [dict get $user user_id] aa_true "User '$user_id' exists" [llength [acs_user::get_user_info -user_id $user_id]] aa_true "User '$user_id' is an SWA" [acs_user::site_wide_admin_p -user_id $user_id] aa_section "Update the user's screen name" set screen_name "___A crazy screen name" acs_user::update -user_id $user_id -screen_name $screen_name aa_equals "We can find the user by its screen name" [acs_user::get_user_id_by_screen_name -screen_name $screen_name] $user_id aa_equals "Screen name is consistent between apis" [dict get [acs_user::get_user_info -user_id $user_id] screen_name] $screen_name aa_section "Reject user" acs_user::reject -user_id $user_id aa_equals "User was rejected" [dict get [acs_user::get_user_info -user_id $user_id] member_state] rejected aa_section "Unapprove user" acs_user::unapprove -user_id $user_id aa_equals "User was rejected" [dict get [acs_user::get_user_info -user_id $user_id] member_state] "needs approval" aa_section "Demote user" acs_user::demote_user -user_id $user_id aa_false "User '$user_id' does not exist" [llength [acs_user::get_user_info -user_id $user_id]] aa_false "User '$user_id' is not an SWA" [acs_user::site_wide_admin_p -user_id $user_id] aa_true "'$user_id' is still a person" [llength [person::get_person_info -person_id $user_id]] aa_section "Promote user" acs_user::promote_person_to_user -person_id $user_id aa_true "User '$user_id' exists" [llength [acs_user::get_user_info -user_id $user_id]] aa_false "User '$user_id' is still not an SWA" [acs_user::site_wide_admin_p -user_id $user_id] aa_section "Add portrait, then demote again" set F [ad_opentmpfile tmpfile] puts $F abcd close $F set portrait_id [acs_user::create_portrait -user_id $user_id -description "Some test portrait" -filename test.png -mime_type image/png -file $tmpfile] aa_equals "We can retrieve the portrait" [acs_user::get_portrait_id -user_id $user_id] $portrait_id acs_user::demote_user -user_id $user_id -delete_portrait aa_false "User '$user_id' does not exist" [llength [acs_user::get_user_info -user_id $user_id]] aa_false "User '$user_id' is not an SWA" [acs_user::site_wide_admin_p -user_id $user_id] aa_true "'$user_id' is still a person" [llength [person::get_person_info -person_id $user_id]] aa_equals "Portrait is gone" [acs_user::get_portrait_id -user_id $user_id] 0 ad_file delete $tmpfile } }} { 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" "demote_promote_a_user (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle