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 | 67b1d52de2318caeaf6a6d137467a3c12f0807ec (patch) | |
| tree | d1bebb15e916a692175fe969e9c1bce6877ad1a3 | |
| parent | 90fbc0fe78e7e7f300c7b8d8532f1a3e82c72d7b (diff) | |
| parent | dd3c1d71f78e7e5ae79ee8918749368883b47531 (diff) | |
| download | tcl-67b1d52de2318caeaf6a6d137467a3c12f0807ec.zip tcl-67b1d52de2318caeaf6a6d137467a3c12f0807ec.tar.gz tcl-67b1d52de2318caeaf6a6d137467a3c12f0807ec.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. |