diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-03-11 15:00:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-03-11 15:00:51 (GMT) |
| commit | 8ad967404ac779d2dff31836f295f22ed6fc130c (patch) | |
| tree | c26e4cad9cc63046295c6fa6fec3e970ddd0c731 /tests/compile.test | |
| parent | 812f825cfcb54b05a3df59e2cb1585af3da47c67 (diff) | |
| download | tcl-8ad967404ac779d2dff31836f295f22ed6fc130c.zip tcl-8ad967404ac779d2dff31836f295f22ed6fc130c.tar.gz tcl-8ad967404ac779d2dff31836f295f22ed6fc130c.tar.bz2 | |
New test compile-5.3 for the bug.bug_b9b2079e6d
Diffstat (limited to 'tests/compile.test')
| -rw-r--r-- | tests/compile.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/compile.test b/tests/compile.test index 46e678a..bb12050 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} |