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 | dd3c1d71f78e7e5ae79ee8918749368883b47531 (patch) | |
| tree | 6961fdb648a77aa0885cbd01fa3ddcbc2a4d890b /tests/set-old.test | |
| parent | db73017a4a2d7282b331180128b91f169a58e576 (diff) | |
| download | tcl-dd3c1d71f78e7e5ae79ee8918749368883b47531.zip tcl-dd3c1d71f78e7e5ae79ee8918749368883b47531.tar.gz tcl-dd3c1d71f78e7e5ae79ee8918749368883b47531.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. |