_forums__forum_count_test (private)
_forums__forum_count_test
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] # Create open forum set forum_id [forum::new -name foo -package_id $package_id] forum::get -forum_id $forum_id -array forum aa_equals "New forum has zero approved threads" $forum(approved_thread_count) 0 aa_equals "New forum has zero threads" $forum(thread_count) 0 # Create message set message_id [forum::message::new -forum_id $forum_id -subject foo -content foo] forum::get -forum_id $forum_id -array forum aa_equals "After post forum has one approved thread" $forum(approved_thread_count) 1 aa_equals "After post forum has one threads" $forum(thread_count) 1 forum::message::get -message_id $message_id -array message aa_equals "New post has zero approved replies" $message(approved_reply_count) 0 aa_equals "New post has zero threads" $message(reply_count) 0 set reply_id [forum::message::new -forum_id $forum_id -parent_id $message_id -subject foo -content foo] forum::get -forum_id $forum_id -array forum aa_equals "After reply forum has one approved thread" $forum(approved_thread_count) 1 aa_equals "After reply forum has one thread" $forum(thread_count) 1 forum::message::get -message_id $message_id -array message aa_equals "After reply post has one approved replies" $message(approved_reply_count) 1 aa_equals "After reply post has one reply" $message(reply_count) 1 # Create moderated forum set forum_id [forum::new -name bar -posting_policy moderated -package_id $package_id] # Create message set message_id [forum::message::new -forum_id $forum_id -subject "foo" -content "foo"] forum::get -forum_id $forum_id -array forum aa_equals "After post moderated forum has zero approved threads" $forum(approved_thread_count) 0 aa_equals "After post moderated forum has one thread" $forum(thread_count) 1 set reply_id [forum::message::new -forum_id $forum_id -parent_id $message_id -subject "foo" -content "foo"] forum::message::get -message_id $message_id -array message aa_equals "After reply moderated post has zero approved replies" $message(approved_reply_count) 0 aa_equals "After reply moderated post has one reply" $message(reply_count) 1 forum::message::set_state -message_id $message_id -state approved forum::get -forum_id $forum_id -array forum aa_equals "After approval moderated forum has one approved thread" $forum(approved_thread_count) 1 aa_equals "After approval moderated forum has one thread" $forum(thread_count) 1 forum::message::set_state -message_id $reply_id -state approved forum::message::get -message_id $message_id -array message aa_equals "After reply approval post has one approved reply" $message(approved_reply_count) 1 aa_equals "After reply approval post has one reply" $message(reply_count) 1 forum::message::delete -message_id $message_id forum::get -forum_id $forum_id -array forum aa_equals "After deletion moderated forum has zero approved threads" $forum(approved_thread_count) 0 aa_equals "After deletion moderated forum has zero threads" $forum(thread_count) 0 } }} { 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_count_test (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle