_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):
%3 aa_equals aa_equals (public) aa_false aa_false (public) aa_log aa_log (public) aa_log_result aa_log_result (public) aa_run_with_teardown aa_run_with_teardown (public) _acs-tcl__demote_promote_a_user _acs-tcl__demote_promote_a_user _acs-tcl__demote_promote_a_user->aa_equals _acs-tcl__demote_promote_a_user->aa_false _acs-tcl__demote_promote_a_user->aa_log _acs-tcl__demote_promote_a_user->aa_log_result _acs-tcl__demote_promote_a_user->aa_run_with_teardown

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
[ hide source ] | [ make this the default ]
Show another procedure: