summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-03-17 13:19:44 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-03-17 13:19:44 (GMT)
commit3bd42df4a43bf78791b9ed88f0f32b29d9fbc9ac (patch)
tree8279d93d0ad3263adc96b13cbc12ad087caa318e /tests
parent91a20bc018f04bcf8ce13412ad16cfcbe9e53489 (diff)
parentbfa7cb3c5d224a86a6136bc063018638eb3b9a0b (diff)
downloadtcl-3bd42df4a43bf78791b9ed88f0f32b29d9fbc9ac.zip
tcl-3bd42df4a43bf78791b9ed88f0f32b29d9fbc9ac.tar.gz
tcl-3bd42df4a43bf78791b9ed88f0f32b29d9fbc9ac.tar.bz2
merge 8.6 bug fixes
Diffstat (limited to 'tests')
-rw-r--r--tests/compile.test11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/compile.test b/tests/compile.test
index 6ef697c..6aa7fd1 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -224,6 +224,17 @@ test compile-5.2 {TclCompileForeachCmd: non-local variables} {
foreach-test
set ::foo
} 3
+test compile-5.3 {TclCompileForeachCmd: [Bug b9b2079e6d]} -setup {
+ proc demo {} {
+ foreach x y {
+ if 1 break else
+ }
+ }
+} -body {
+ demo
+} -cleanup {
+ rename demo {}
+} -returnCodes error -result {wrong # args: no script following "else" argument}
test compile-6.1 {TclCompileSetCmd: global scalar names with ::s} -setup {
catch {unset x}