diff options
Diffstat (limited to 'tests/for.test')
-rw-r--r-- | tests/for.test | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/for.test b/tests/for.test index 8f19e9f..ff4dc0e 100644 --- a/tests/for.test +++ b/tests/for.test @@ -197,6 +197,19 @@ test for-2.6 {continue tests, long command body} { } set a } {1 3} +test for-2.7 {continue tests, uncompiled [for]} -body { + set file [makeFile { + set guard 0 + for {set i 20} {$i > 0} {incr i -1} { + if {[incr guard]>30} {return BAD} + continue + } + return GOOD + } source.file] + source $file +} -cleanup { + removeFile source.file +} -result GOOD # Check "for" and "break". |