summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-05-31 09:12:04 (GMT)
committernijtmans <nijtmans>2010-05-31 09:12:04 (GMT)
commit67dc34a79def67d6d61add7f0635c45806fc7a50 (patch)
tree20cfb3394502a1e9f9352e96c0fd715421e2b273
parent3de22ff5a384e6d63befbefeb166e2b60bd419b1 (diff)
downloadtcl-67dc34a79def67d6d61add7f0635c45806fc7a50.zip
tcl-67dc34a79def67d6d61add7f0635c45806fc7a50.tar.gz
tcl-67dc34a79def67d6d61add7f0635c45806fc7a50.tar.bz2
Fix filesystem-5.1 test failure on CYGWIN
-rw-r--r--ChangeLog1
-rw-r--r--tests/fileSystem.test2
2 files changed, 2 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 5e50076..455d15c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
* generic/tclVar.c Eliminate some casts to (Tcl_HashTable *)
* generic/tclExecute.c
+ * tests/fileSystem.test Fix filesystem-5.1 test failure on CYGWIN
2010-05-28 Jan Nijtmans <nijtmans@users.sf.net>
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 071b63f..2fe13d7 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -546,7 +546,7 @@ test filesystem-5.1 {cache and ~} -constraints testfilesystem -setup {
list $res1 $res2
} -cleanup {
set ::env(HOME) $orig
-} -match regexp -result {{Parent of ~ \(/foo/bar/blah\) is ([a-zA-Z]:)?(/foo/bar|foo:bar)} {Parent of ~ \(/a/b/c\) is ([a-zA-Z]:)?(/a/b|a:b)}}
+} -match regexp -result {{Parent of ~ \(/foo/bar/blah\) is ([a-zA-Z]:)?(/cygwin)?(/foo/bar|foo:bar)} {Parent of ~ \(/a/b/c\) is ([a-zA-Z]:)?(/cygwin)?(/a/b|a:b)}}
test filesystem-6.1 {empty file name} -returnCodes error -body {
open ""