From b6b49cf918923cfd65f36e367eb53becaaf6b264 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 17 Jul 2015 21:15:26 +0000
Subject: Test for original meaning of [unset -nocomplain --].

---
 tests/set-old.test | 5 +++++
 1 file changed, 5 insertions(+)

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.
 
-- 
cgit v0.12