forums::test::view (private)

 forums::test::view [ -last_request last_request ] \
    [ -forum_id forum_id ] [ -name name ]

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

View a forum via the web interface.

Switches:

-last_request (optional)

-forum_id (optional, defaults to "0")

-name (optional)

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 $last_request

        if {$name ne ""} {
            #
            # Call to the forums page
            #
            set d [::acs::test::http -last_request $d $forums_page]
            acs::test::reply_has_status_code $d 200

            #
            # Follow the link with the provided link label
            #
            set d [::acs::test::follow_link  -last_request $d  -base $forums_page  -label $name]
            acs::test::reply_has_status_code $d 200
        }

        #
        # Check via the forum_id, when provided
        #
        if {$forum_id != 0} {
            aa_log "check via forum_id"
            set d [::acs::test::http  -last_request $d  $forums_page/forum-view?forum_id=$forum_id]
            acs::test::reply_has_status_code $d 200
        }
        return $d

XQL Not present:

Generic, PostgreSQL, Oracle