summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-10-03 15:47:38 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-10-03 15:47:38 (GMT)
commitae02ceb3de605244211918465b4e4662fe14bc98 (patch)
treee60f199f37db157823e71a143e6bfd0f0def76ba /tests
parent5190862515e3cf2477b403402c70b1c25db282fa (diff)
downloadtcl-ae02ceb3de605244211918465b4e4662fe14bc98.zip
tcl-ae02ceb3de605244211918465b4e4662fe14bc98.tar.gz
tcl-ae02ceb3de605244211918465b4e4662fe14bc98.tar.bz2
test casesbug_bc1a96407a
Diffstat (limited to 'tests')
-rw-r--r--tests/var.test11
1 files changed, 11 insertions, 0 deletions
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}