_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 flags {
            bytelength
            compare
            equal
            first
            index
            is
            last
            length
            map
            match
            range
            repeat
            replace
            reverse
            tolower
            totitle
            toupper
            trim
            trimleft
            trimright
            wordend
            wordstart
        }

        foreach flag $flags {
            aa_true "string subcommand '$flag' is recognized" [acs::cmd_has_subcommand string $flag]
        }

        set flag [ad_generate_random_string]
        aa_false "string has no subcommand called '$flag'" [acs::cmd_has_subcommand string $flag]

        aa_section "Test NaviServer subcommands"
        set flags {
            get
            set
        }
        foreach flag $flags {
            aa_true "nsv_array subcommand '$flag' is recognized"  [acs::cmd_has_subcommand nsv_array $flag]
        }
        set flag [ad_generate_random_string]
        aa_false "nsv_array has no subcommand called '$flag'"  [acs::cmd_has_subcommand nsv_array $flag]
    }} {
          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