From a3a5372cf6ffd69dbf4628f2c0dd5295f79888ae Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Sun, 4 Oct 2015 10:58:48 +0000
Subject: [05489ce335] Constrain broken tests.

---
 tests/for.test | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/tests/for.test b/tests/for.test
index a0eeff6..59e62fb 100644
--- a/tests/for.test
+++ b/tests/for.test
@@ -14,6 +14,8 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
     namespace import -force ::tcltest::*
 }
 
+testConstraint bug-05489ce335 [testConstraint knownBug]
+
 # Basic "for" operation.
 
 test for-1.1 {TclCompileForCmd: missing initial command} {
@@ -824,7 +826,7 @@ test for-8.0 {Coverity CID 1251203: break vs continue in for-step clause} {
 	list $i $j $k
     }}
 } {6 5 3}
-test for-8.1 {Coverity CID 1251203: break vs continue in for-step clause} {
+test for-8.1 {Coverity CID 1251203: break vs continue in for-step clause} bug-05489ce335 {
     apply {{} {
 	for {set k 0} {$k < 3} {incr k} {
 	    set j 0
@@ -837,7 +839,7 @@ test for-8.1 {Coverity CID 1251203: break vs continue in for-step clause} {
 	list $i $j $k
     }}
 } {2 1 3}
-test for-8.2 {Coverity CID 1251203: break vs continue in for-step clause} {
+test for-8.2 {Coverity CID 1251203: break vs continue in for-step clause} bug-05489ce335 {
     apply {{} {
 	for {set k 0} {$k < 3} {incr k} {
 	    set j 0
@@ -863,7 +865,7 @@ test for-8.3 {break in for-step clause} {
 	list $i $j $k
     }}
 } {2 1 3}
-test for-8.4 {continue in for-step clause} {
+test for-8.4 {continue in for-step clause} bug-05489ce335 {
     apply {{} {
 	for {set k 0} {$k < 3} {incr k} {
 	    set j 0
@@ -876,7 +878,7 @@ test for-8.4 {continue in for-step clause} {
 	list $i $j $k
     }}
 } {1 1 3}
-test for-8.5 {break in for-step clause} {
+test for-8.5 {break in for-step clause} bug-05489ce335 {
     apply {{} {
 	for {set k 0} {$k < 3} {incr k} {
 	    set j 0
@@ -889,7 +891,7 @@ test for-8.5 {break in for-step clause} {
 	list $i $j $k
     }}
 } {2 1 3}
-test for-8.6 {continue in for-step clause} {
+test for-8.6 {continue in for-step clause} bug-05489ce335 {
     apply {{} {
 	for {set k 0} {$k < 3} {incr k} {
 	    set j 0
@@ -915,7 +917,7 @@ test for-8.7 {break in for-step clause} {
 	list $i $j $k
     }}
 } {2 1 3}
-test for-8.8 {continue in for-step clause} {
+test for-8.8 {continue in for-step clause} bug-05489ce335 {
     apply {{} {
 	for {set k 0} {$k < 3} {incr k} {
 	    set j 0
@@ -976,8 +978,11 @@ test for-8.12 {continue in for-step clause} {
 	list $i $j $k
     }}
 } {1 1 3}
-
-
+
 # cleanup
 ::tcltest::cleanupTests
 return
+
+# Local Variables:
+# mode: tcl
+# End:
-- 
cgit v0.12