From 08d704bbb1b78da3ca7806bfc5c7fd8fae51e570 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 17 Apr 2018 03:48:47 +0000
Subject: Test of shimmer segfault.

---
 tests/var.test | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tests/var.test b/tests/var.test
index a391a01..6ac3e52 100644
--- a/tests/var.test
+++ b/tests/var.test
@@ -1143,6 +1143,15 @@ test var-23.13 {array enumeration, number of traces} -setup {
     unset -nocomplain ::a
     unset -nocomplain reslist
 } -result 3
+test var-23.14 {array for, shared arguments} -setup {
+    set vn {k v}
+    unset -nocomplain $vn
+} -body {
+    array set $vn {a 1 b 2 c 3}
+    array for $vn $vn {}
+} -cleanup {
+    unset -nocomplain $vn vn
+} -result {}
 
 catch {namespace delete ns}
 catch {unset arr}
-- 
cgit v0.12