_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