_forums__forum_new (private)

 _forums__forum_new

Defined in packages/forums/tcl/test/forums-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) _forums__forum_new _forums__forum_new _forums__forum_new->aa_equals _forums__forum_new->aa_false _forums__forum_new->aa_log _forums__forum_new->aa_log_result _forums__forum_new->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 {

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