00-icanuse-procs.tcl

Test api defined in tcl/00-icanuse-procs.tcl

Location:
packages/acs-tcl/tcl/test/00-icanuse-procs.tcl

Procedures in this file

Detailed information

_acs-tcl__acs__command_has_subcommand (private)

 _acs-tcl__acs__command_has_subcommand

Partial Call Graph (max 5 caller/called nodes):
%3 aa_false aa_false (public) aa_log aa_log (public) aa_log_result aa_log_result (public) aa_section aa_section (public) aa_true aa_true (public) _acs-tcl__acs__command_has_subcommand _acs-tcl__acs__command_has_subcommand _acs-tcl__acs__command_has_subcommand->aa_false _acs-tcl__acs__command_has_subcommand->aa_log _acs-tcl__acs__command_has_subcommand->aa_log_result _acs-tcl__acs__command_has_subcommand->aa_section _acs-tcl__acs__command_has_subcommand->aa_true

Testcases:
No testcase defined.
[ hide source ] | [ make this the default ]

Content File Source

ad_library {

    Test api defined in tcl/00-icanuse-procs.tcl

}

aa_register_case \
    -cats { api } \
    -procs {
        acs::cmd_has_subcommand
    } \
    acs__command_has_subcommand {

        Check whether we can detect if a command has a subcommand.

    } {
        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]
    }