_acs-tcl__acs__command_has_subcommand (private)
_acs-tcl__acs__command_has_subcommand
Defined in packages/acs-tcl/tcl/test/00-icanuse-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 "Test a plain Tcl command" set subcmds { compare equal first index is last length map match range repeat replace reverse tolower totitle toupper trim trimleft trimright wordend wordstart } foreach subcmd $subcmds { aa_true "string subcommand '$subcmd' is recognized" [acs::cmd_has_subcommand string $subcmd] } set subcmd [ad_generate_random_string] aa_false "string has no subcommand called '$subcmd'" [acs::cmd_has_subcommand string $subcmd] aa_section "Test NaviServer subcommands" set subcmds { get set } foreach subcmd $subcmds { aa_true "nsv_array subcommand '$subcmd' is recognized" [acs::cmd_has_subcommand nsv_array $subcmd] } set subcmd [ad_generate_random_string] aa_false "nsv_array has no subcommand called '$subcmd'" [acs::cmd_has_subcommand nsv_array $subcmd] }} { 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" "acs__command_has_subcommand (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle