diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-07-17 21:17:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-07-17 21:17:48 (GMT) |
| commit | ad86656b196a9b34f2df43327c816d8099d7f3c8 (patch) | |
| tree | d1bebb15e916a692175fe969e9c1bce6877ad1a3 | |
| parent | 9c60e1eea154351895b96dee5b819149efa8105b (diff) | |
| parent | b6b49cf918923cfd65f36e367eb53becaaf6b264 (diff) | |
| download | tcl-ad86656b196a9b34f2df43327c816d8099d7f3c8.zip tcl-ad86656b196a9b34f2df43327c816d8099d7f3c8.tar.gz tcl-ad86656b196a9b34f2df43327c816d8099d7f3c8.tar.bz2 | |
Test for original meaning of [unset -nocomplain --]. FAILS!
| -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 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. |