diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2014-10-17 10:00:39 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2014-10-17 10:00:39 (GMT) |
| commit | 8e5b3b87a5b56c5d871a6d7e2107a516ca1d6212 (patch) | |
| tree | 239e5dd2f89b978e46ca772b0d367cce522e8377 /tests/var.test | |
| parent | 822a2b50f72950b1305cf1a2983427b05c80859d (diff) | |
| parent | ef89704696f7ce48c9e84dff959c72e2fd887959 (diff) | |
| download | tcl-8e5b3b87a5b56c5d871a6d7e2107a516ca1d6212.zip tcl-8e5b3b87a5b56c5d871a6d7e2107a516ca1d6212.tar.gz tcl-8e5b3b87a5b56c5d871a6d7e2107a516ca1d6212.tar.bz2 | |
Merge trunk
Diffstat (limited to 'tests/var.test')
| -rw-r--r-- | tests/var.test | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/var.test b/tests/var.test index 8e862f7..7ff394e 100644 --- a/tests/var.test +++ b/tests/var.test @@ -865,6 +865,22 @@ 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} -setup { + variable foo + variable lambda + unset -nocomplain lambda foo + array set foo {} + lappend lambda {} + lappend lambda [list array set [namespace which -variable foo] {a 1}] +} -body { + after 0 [list apply $lambda] + vwait [namespace which -variable foo] +} -cleanup { + unset -nocomplain lambda foo +} -result {} +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} |