diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-07-17 21:15:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-07-17 21:15:26 (GMT) |
| commit | b6b49cf918923cfd65f36e367eb53becaaf6b264 (patch) | |
| tree | 6961fdb648a77aa0885cbd01fa3ddcbc2a4d890b /tests/set-old.test | |
| parent | 7d3e1db1dc03de209aac3954c74450f0d29df715 (diff) | |
| download | tcl-b6b49cf918923cfd65f36e367eb53becaaf6b264.zip tcl-b6b49cf918923cfd65f36e367eb53becaaf6b264.tar.gz tcl-b6b49cf918923cfd65f36e367eb53becaaf6b264.tar.bz2 | |
Test for original meaning of [unset -nocomplain --].
Diffstat (limited to 'tests/set-old.test')
| -rw-r--r-- | tests/set-old.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/set-old.test b/tests/set-old.test index 2ef4019..09de97b 100644 --- a/tests/set-old.test +++ b/tests/set-old.test @@ -305,6 +305,11 @@ test set-old-7.18 {unset command, -nocomplain (no abbreviation)} { catch {unset -nocomp} list [info exists -nocomp] [catch {unset -nocomp}] } {0 1} +test set-old-7.19 {unset command, both switches} { + set -- val + list [info exists --] [catch {unset -nocomplain --}] [info exists --]\ + [catch {unset -nocomplain -- --}] [info exists --] +} {1 0 1 0 0} # Array command. |