Artifact
ac7607deb22d1874e5245a502ae605ae82fbb36e:
Attachment "fortest.patch" to
ticket [2186888fff]
added by
ferrieux
2008-11-17 14:42:31.
Index: tests/for.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/for.test,v
retrieving revision 1.16
diff -u -r1.16 for.test
--- tests/for.test 9 Oct 2006 19:15:44 -0000 1.16
+++ tests/for.test 17 Nov 2008 07:40:49 -0000
@@ -199,6 +199,19 @@
}
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".