_acs-tcl__ad_proc_change_state_member (private)
_acs-tcl__ad_proc_change_state_member
Defined in packages/acs-tcl/tcl/test/test-membership-rel-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 { # We get a user_id as party_id set user_id [db_nextval acs_object_id_seq] # Create the user set user_info [acs::test::user::create -user_id $user_id] set rel_id [db_string get_rel_id "select max(rel_id) from acs_rels where object_id_two = :user_id" -default 0] # Try to change his state to approved aa_log "We change the state to approved" membership_rel::approve -rel_id $rel_id set member_state [acs_user::get -user_id $user_id -element member_state] # Verifying if the state was changed aa_equals "Changed State to aprroved" $member_state "approved" # Try to change his state to banned aa_log "We change the state to banned" membership_rel::ban -rel_id $rel_id set member_state [acs_user::get -user_id $user_id -element member_state] # Verifying if the state was changed aa_equals "Changed State to banned" $member_state "banned" # Try to change his state to rejected aa_log "We change the state to rejected" membership_rel::reject -rel_id $rel_id set member_state [acs_user::get -user_id $user_id -element member_state] # Verifying if the state was changed aa_equals "Changed State to rejected" $member_state "rejected" # Try to change his state to unapproved aa_log "We change the state to unapproved" membership_rel::unapprove -rel_id $rel_id set member_state [acs_user::get -user_id $user_id -element member_state] # Verifying if the state was changed aa_equals "Changed State to unapproved" $member_state "needs approval" # Try to change his state to expired aa_log "We change the state to expired" membership_rel::expire -rel_id $rel_id set member_state [acs_user::get -user_id $user_id -element member_state] # Verifying if the state was changed aa_equals "Changed State to expired" $member_state "expired" # Try to change his state to deleted aa_log "We change the state to deleted" membership_rel::delete -rel_id $rel_id set member_state [acs_user::get -user_id $user_id -element member_state] # Verifying if the state was changed aa_equals "Changed State to deleted" $member_state "deleted" } }} { 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" "ad_proc_change_state_member (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle