_acs-templating__get_opts (private)
_acs-templating__get_opts
Defined in packages/acs-templating/tcl/test/util-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 {{ set testcases { {-datatype integer -widget hidden -value 0} {widget hidden datatype integer value 0} {-widget submit -label { OK } -datatype text} {datatype text label { OK } widget submit} {-datatype text -widget textarea -optional -label #acs-subsite.Caption# -value {-test} -html {rows "6" cols "50"}} {label "#acs-subsite.Caption#" widget textarea datatype text html {rows "6" cols "50"} value 1 test 1 optional 1} } foreach {input output} $testcases { unset -nocomplain opts template::util::get_opts $input aa_equals "Array has exactly the keys we expect" [lsort [dict keys $output]] [lsort [array names opts]] foreach {key value} $output { aa_equals "The value stored for each option is the expected one" $value $opts($key) } } }} { 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" "get_opts (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle