diff options
| -rw-r--r-- | ChangeLog | 1 | ||||
| -rw-r--r-- | tests/fileSystem.test | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -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 "" |