summaryrefslogtreecommitdiffstats
path: root/tests/set-old.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-07-17 21:15:26 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-07-17 21:15:26 (GMT)
commitb6b49cf918923cfd65f36e367eb53becaaf6b264 (patch)
tree6961fdb648a77aa0885cbd01fa3ddcbc2a4d890b /tests/set-old.test
parent7d3e1db1dc03de209aac3954c74450f0d29df715 (diff)
downloadtcl-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.test5
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.