summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/for.test21
1 files 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: