summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-07-17 21:17:48 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-07-17 21:17:48 (GMT)
commitad86656b196a9b34f2df43327c816d8099d7f3c8 (patch)
treed1bebb15e916a692175fe969e9c1bce6877ad1a3 /tests
parent9c60e1eea154351895b96dee5b819149efa8105b (diff)
parentb6b49cf918923cfd65f36e367eb53becaaf6b264 (diff)
downloadtcl-ad86656b196a9b34f2df43327c816d8099d7f3c8.zip
tcl-ad86656b196a9b34f2df43327c816d8099d7f3c8.tar.gz
tcl-ad86656b196a9b34f2df43327c816d8099d7f3c8.tar.bz2
Test for original meaning of [unset -nocomplain --]. FAILS!
Diffstat (limited to 'tests')
-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 4c25ec5..94b6901 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.