_forums__web_forum_new (private)
_forums__web_forum_new
Defined in packages/forums/tcl/test/forums-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 forum_id 0 aa_run_with_teardown -test_code { # # Create a new admin user # set user_info [acs::test::user::create -admin] set user_id [dict get $user_info user_id] # # Create a new forum # set name [ad_generate_random_string] set d [forums::test::new -user_info $user_info $name] set forum_id [dict get $d payload forum_id] } -teardown_code { # # In order to be able to delete the user, we have first to # delete the fresh forum (via API). # if {$forum_id != 0} { forum::delete -forum_id $forum_id } acs::test::user::delete -user_id [dict get $user_info 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" "web_forum_new (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle