_forums__forum_new (private)
_forums__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 {{ aa_run_with_teardown -rollback -test_code { set package_id [subsite::main_site_id] set no_package_id [db_string get_not_package_id { select min(package_id) - 1 from apm_packages }] # Create a couple of forums set forums [list] lappend forums [list [forum::new -name "foo" -package_id $package_id] "foo"] lappend forums [list [forum::new -name "bar" -package_id $package_id] "bar"] aa_equals "No forums retrieved for an invalid package" [forum::list_forums -package_id $no_package_id] "" set api_forums [list] foreach s [forum::list_forums -package_id $package_id] { aa_equals "Set has the expected keys" [lsort [ns_set keys $s]] {forum_id name posting_policy presentation_type} set forum_id [ns_set get $s forum_id] lappend api_forums [list $forum_id [ns_set get $s name]] aa_true "Forum id '$forum_id' is valid (without package)" [forum::valid_forum_id_p -forum_id $forum_id] aa_true "Forum id '$forum_id' is valid (with package)" [forum::valid_forum_id_p -forum_id $forum_id -package_id $package_id] aa_false "Forum id '$forum_id' is not valid (wrong package)" [forum::valid_forum_id_p -forum_id $forum_id -package_id $no_package_id] } aa_equals "Api retrieves the expected forums" [lsort -index 0 $forums] [lsort -index 0 $api_forums] } }} { 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" "forum_new (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle