From ae02ceb3de605244211918465b4e4662fe14bc98 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 3 Oct 2014 15:47:38 +0000
Subject: test cases

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

diff --git a/tests/var.test b/tests/var.test
index 8e862f7..a7950be 100644
--- a/tests/var.test
+++ b/tests/var.test
@@ -865,6 +865,17 @@ test var-20.8 {array set compilation correctness: Bug 3603163} -setup {
     }}
     array size x
 } -result 0
+test var-20.9 {[bc1a96407a] array set compiled w/ trace} {
+    variable foo
+    lappend lambda {}
+    lappend lambda [list array set [namespace which -variable foo] {a 1}]
+    after 0 [list apply $lambda]
+    vwait [namespace which -variable foo]
+    unset -nocomplain lambda foo
+} {}
+test var-20.10 {[bc1a96407a] array set don't compile bad varname} -body {
+    apply {{} {set name foo(bar); array set $name {a 1}}}
+} -returnCodes error -match glob -result *
 
 test var-21.0 {PushVarNameWord OBOE in compiled unset} -setup {
     proc linenumber {} {dict get [info frame -1] line}
-- 
cgit v0.12