request_processor::test::require_registered_procs (private)

 request_processor::test::require_registered_procs

Defined in packages/acs-tcl/tcl/test/request-processor-procs.tcl

Requires that the test procs are registered under the test URLs

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

Testcases:

No testcase defined.

Source code:

    set procs [list  request_processor::test::a_proc_with_no_args  request_processor::test::a_proc_with_some_flags  request_processor::test::a_proc_with_any_args  request_processor::test::a_proc_with_flags_and_args]
    # Exit immediately if any of the test procs is already registered.
    if {![nsv_get rp_registered_procs . registered_procs]} {
        set registered_procs [list]
    }
    foreach proc_info $registered_procs {
        set proc_name [lindex $proc_info 2]
        if {$proc_name in $procs} {
            return false
        }
    }

    foreach proc_name $procs {
        switch $proc_name {
            request_processor::test::a_proc_with_no_args {
                set args [list]
            }
            request_processor::test::a_proc_with_some_flags {
                set args [list -a_flag 1 -another_flag 2]
            }
            request_processor::test::a_proc_with_any_args {
                set args [list 1 2 3 4 5]
            }
            request_processor::test::a_proc_with_flags_and_args {
                set args [list -a_flag 1 -another_flag 2 foo bar]
            }
        }
        regsub -all {:} $proc_name {_} path
        ns_log warning "Registered - $path $proc_name {*}$args"
        ad_register_proc * $path $proc_name $args
    }

    set proc_name request_processor::test::a_proc_with_flags_and_args
    regsub -all {:} $proc_name {_} path
    append path __invoked_without_args
    ad_register_proc * $path $proc_name

    set proc_name request_processor::test::a_proc_with_some_flags
    regsub -all {:} $proc_name {_} path
    append path __invoked_without_args
    ad_register_proc * $path $proc_name

XQL Not present:

Generic, PostgreSQL, Oracle