diff options
| author | Steve Bennett <steveb@workware.net.au> | 2023-07-08 09:58:48 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2023-08-13 15:05:05 +1000 |
| commit | 41c73f09a2ed866b57ee67eaaee94cd7ad1a9db6 (patch) | |
| tree | 54714a09a199bc8dfd241a7de3557b7e92da8dbd /tests | |
| parent | ef0b05c3fa344564529db450bc2638ad45e334a4 (diff) | |
| download | jimtcl-cmd-register.zip jimtcl-cmd-register.tar.gz jimtcl-cmd-register.tar.bz2 | |
info: procs, commands, don't returns commands with spacescmd-register
We implement ensembles by creating commands with spaces, like {tree children}.
This can clutter the commands returned by 'info procs', 'info commands'.
So don't return these by default. Add the '-all' option return all commands.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/jim.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/jim.test b/tests/jim.test index eff2c1f..2d245db 100644 --- a/tests/jim.test +++ b/tests/jim.test @@ -3152,9 +3152,9 @@ test info-2.4 {info commands option} { } {_test1_ _test2_} catch {rename _test1_ {}} catch {rename _test2_ {}} -test info-2.5 {info commands option} { +test info-2.5 {info commands option} -body { list [catch {info commands a b} msg] $msg -} {1 {wrong # args: should be "info commands ?pattern?"}} + } -result {1 {wrong # args: should be "info commands ?-all? ?pattern?"}} test info-3.1 {info exists option} { set value foo info exists value |