diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-10-10 20:37:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-10-10 20:37:58 (GMT) |
| commit | ceff856085045650b5b10e2d2fea1355ba78e4c4 (patch) | |
| tree | d2d595f7a8cbf28ddc9fc536754efccf285b802c /tests/var.test | |
| parent | 0b2fd8fa683af75eea9927ad65f7c7d4a9836163 (diff) | |
| download | tcl-ceff856085045650b5b10e2d2fea1355ba78e4c4.zip tcl-ceff856085045650b5b10e2d2fea1355ba78e4c4.tar.gz tcl-ceff856085045650b5b10e2d2fea1355ba78e4c4.tar.bz2 | |
Resolve test conflicts over global vars
Diffstat (limited to 'tests/var.test')
| -rw-r--r-- | tests/var.test | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/var.test b/tests/var.test index a7950be..7ff394e 100644 --- a/tests/var.test +++ b/tests/var.test @@ -865,14 +865,19 @@ 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} { +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 * |