From 6e716af3b752e9c8399333c0145b2b1d067d62ae 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


From 6a0634acc9eabaf65a12fc8a608e0504163e8a1d Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 5 Oct 2015 09:23:12 +0000
Subject: Use "cygpath -m" in stead of "cygpath -w", so paths (even windows
 ones) always have forward slashes. Suggested by pooryorick for
 [http://core.tcl.tk/tclconfig/tktview/06f1692bbe29449ac3f2161ebf9dd153d0349845|TEA],
 but a good idea anyway

---
 win/configure | 2 +-
 win/tcl.m4    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/win/configure b/win/configure
index 1dcc9d2..dc03e62 100755
--- a/win/configure
+++ b/win/configure
@@ -3288,7 +3288,7 @@ do
   test -z "$as_dir" && as_dir=.
   for ac_exec_ext in '' $ac_executable_extensions; do
   if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_CYGPATH="cygpath -w"
+    ac_cv_prog_CYGPATH="cygpath -m"
     echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5
     break 2
   fi
diff --git a/win/tcl.m4 b/win/tcl.m4
index aa3c4b3..46d3518 100644
--- a/win/tcl.m4
+++ b/win/tcl.m4
@@ -558,7 +558,7 @@ AC_DEFUN([SC_CONFIG_CFLAGS], [
     # Set some defaults (may get changed below)
     EXTRA_CFLAGS=""
 
-    AC_CHECK_PROG(CYGPATH, cygpath, cygpath -w, echo)
+    AC_CHECK_PROG(CYGPATH, cygpath, cygpath -m, echo)
 
     SHLIB_SUFFIX=".dll"
 
-- 
cgit v0.12