_acs-templating__template_variable (private)
_acs-templating__template_variable
Defined in packages/acs-templating/tcl/test/parse-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 {{ aa_section "Testing plain variable" set code "=@test_var@" aa_true "Variable detected" [regexp [template::adp_variable_regexp] $code discard pre var] aa_equals "Preceding char is '${pre}'" "=" $pre aa_equals "Variable name is '${var}'" "test_var" $var set code "=@test_array.test_key@" aa_true "Regular array var name detected" [regexp [template::adp_array_variable_regexp] $code discard pre arr var] aa_equals "Preceding char is '${pre}'" "=" $pre aa_equals "Array name is '${arr}'" "test_array" $arr aa_equals "Variable name is '${var}'" "test_key" $var set code "=@formerror.test_array.test_key@" aa_true "Formerror regular array var name detected" [regexp [template::adp_array_variable_regexp] $code discard pre arr var] aa_equals "Preceding char is '${pre}'" "=" $pre aa_equals "Array name is '${arr}'" "formerror" $arr aa_equals "Variable name is '${var}'" "test_array.test_key" $var foreach modifier {noquote literal noi18n} { aa_section "Testing ;$modifier modifier" set code "=@test_var;$modifier@" aa_true "Variable detected" [regexp [template::adp_variable_regexp_$modifier] $code discard pre var] aa_equals "Preceding char is '${pre}'" "=" $pre aa_equals "Variable name is '${var}'" "test_var" $var set code "=@test_array.test_key;$modifier@" aa_true "$modifier array var name detected" [regexp [template::adp_array_variable_regexp_$modifier] $code discard pre arr var] aa_equals "Preceding char is '${pre}'" "=" $pre aa_equals "Array name is '${arr}'" "test_array" $arr aa_equals "Variable name is '${var}'" "test_key" $var set code "=@formerror.test_array.test_key;$modifier@" aa_true "$modifier formerror array var name detected" [regexp [template::adp_array_variable_regexp_$modifier] $code discard pre arr var] aa_equals "Preceding char is '${pre}'" "=" $pre aa_equals "Array name is '${arr}'" "formerror" $arr aa_equals "Variable name is '${var}'" "test_array.test_key" $var } }} { 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" "template_variable (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle