caldav::test::foreach_response (private)

 caldav::test::foreach_response var xml body

Defined in packages/caldav/tcl/test/caldav-test-procs.tcl

Parameters:

var (required)

xml (required)

body (required)

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

Testcases:

No testcase defined.

Source code:

        upvar $var response
    dom parse -- $xml doc
    $doc documentElement root
        try {
            set responses [$root selectNodes //d:response]
        } on error {errorMsg} {
            aa_true "XPAth exception during evaluation of selector '//d:response': $errorMsg" 0
            throw {XPATH {xpath triggered exception}} $errorMsg
        }
        foreach response $responses {
            uplevel $body
        }

XQL Not present:

Generic, PostgreSQL, Oracle