navigation::test::context_bar_multirow_filter (private)

 navigation::test::context_bar_multirow_filter

Defined in packages/acs-tcl/tcl/test/navigation-procs.tcl

Procedure for the context_bar_multirow test filter

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

Testcases:

ad_context_bar_multirow

Source code:

    aa_run_with_teardown -rollback -test_code {
        set testnode_1 [list "/navigation_test_node1/" navigation_test_node1 "GN's Sub-site"]
        set testnode_2 [list "[lindex $testnode_1 0]navigation_test_node2/" navigation_test_node2 "navigation_test_node2"]

        # Create hierarchy from the random created nodes
        set root_node [site_node::get_from_url -url "/"]
        set root_node_id [dict get $root_node node_id]

        # Create and mount new node. We also need a subsite underneath
        # or the context bar won't display them.
        set package_id [site_node::instantiate_and_mount  -parent_node_id $root_node_id  -node_name [lindex $testnode_1 1]  -package_name [lindex $testnode_1 2]   -package_key "acs-subsite"]
        set idr_1 [dict get [site_node::get_from_object_id -object_id $package_id] node_id]
        set package_id [site_node::instantiate_and_mount  -parent_node_id $idr_1  -node_name [lindex $testnode_2 1]  -package_name [lindex $testnode_2 2]  -package_key "acs-subsite"]
        set idr_2 [dict get [site_node::get_from_object_id -object_id $package_id] node_id]

        set node_id $idr_2
        set context "last"

        set page [ad_parse_template -params  [list  [list from_node $root_node_id]  [list node_id $node_id]  [list context $context]]  "/packages/acs-tcl/tcl/test/multirow-test"]

    } -teardown_code {
        site_node::delete -node_id $idr_2
        site_node::delete -node_id $idr_1
    }
    ns_return 200 text/html $page

    return filter_return

XQL Not present:

Generic, PostgreSQL, Oracle