_acs-templating__urn_api (private)
_acs-templating__urn_api
Defined in packages/acs-templating/tcl/test/head-test-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ try { set urn test_urn aa_section "Absolute URL" set resource http://testresource aa_false "Resource '$resource' cannot be found" [template::head::can_resolve_urn $urn] aa_log "Register '$resource'" template::register_urn -urn $urn -resource $resource -csp_list {a b c} aa_true "Resource '$resource' can be found" [template::head::can_resolve_urn $urn] aa_equals "CSP list is expected" $::template::head::urn_csp($urn) {a b c} aa_section "Local URL" set resource testresource aa_log "Register '$resource'" template::register_urn -urn $urn -resource $resource -csp_list {c d e} aa_equals "CSP list was changed" $::template::head::urn_csp($urn) {c d e} aa_section "Another Local URL (Ignored)" set resource anything aa_log "Register '$resource'" template::register_urn -urn $urn -resource $resource -csp_list {f g h} aa_equals "URN was NOT changed" $::template::head::urn($urn) testresource aa_equals "CSP list was NOT changed" $::template::head::urn_csp($urn) {c d e} } finally { unset -nocomplain ::template::head::urn_csp($urn) unset -nocomplain ::template::head::urn($urn) } }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "urn_api (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle