forums::test::edit (private)

 forums::test::edit -last_request last_request [ -forum_id forum_id ]

Defined in packages/forums/tcl/test/webtest-procs.tcl

Edit a forum via the web interface.

Switches:

-last_request (required)

-forum_id (optional, defaults to "0")

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

        set forums_page [aa_get_first_url -package_key forums]

        set d [acs::test::http  -last_request $last_request  $forums_page/admin/forum-edit?forum_id=$forum_id]
        acs::test::reply_has_status_code $d 200

        #
        # Get the form specific data (action, method and provided form-fields)
        #
        set form_data [::acs::test::get_form [dict get $d body] {//form[@id="forum"]}]

        #
        # Fill in a few values into the form
        #
        set old_name [dict get $form_data fields name]
        set old_charter [dict get $form_data fields name]
        set new_name    "Edited $old_name"
        set new_charter "Edited $old_charter"
        set d [::acs::test::form_reply  -last_request $d  -url [dict get $form_data @action]  -update [subst {
                       name     "$new_name"
                       charter  "$new_charter"
                   }]  [dict get $form_data fields]]

        if {[acs::test::reply_contains_no $d form-error]} {
            set d [acs::test::http -last_request $d $forums_page]
            acs::test::reply_contains -prefix "Overview page" $d $new_name
            acs::test::reply_contains -prefix "Overview page" $d $new_charter
        }

XQL Not present:

Generic, PostgreSQL, Oracle