_acs-templating__head_includes (private)
_acs-templating__head_includes
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 {{ # # Define two containers, both with two elements # template::head::includes -container a -parts {b c} template::head::includes -container e -parts {f g} aa_equals "is 'a' already included" [template::head::included_p a] 0 aa_equals "is 'b' already included" [template::head::included_p b] 1 # # Flush one container via flush_link; the contained elements # should be flushed as well. # template::head::flush_link -href a -rel stylesheet aa_equals "is 'a' already included" [template::head::included_p a] 0 aa_equals "is 'b' already included" [template::head::included_p b] 0 aa_equals "is 'e' already included" [template::head::included_p e] 0 aa_equals "is 'f' already included" [template::head::included_p f] 1 # # Flush the second container via flush_script; the contained # elements should be flushed as well. # template::head::flush_script -src e aa_equals "is 'e' already included" [template::head::included_p e] 0 aa_equals "is 'f' already included" [template::head::included_p f] 0 }} { 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" "head_includes (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle