From 67dc34a79def67d6d61add7f0635c45806fc7a50 Mon Sep 17 00:00:00 2001 From: nijtmans Date: Mon, 31 May 2010 09:12:04 +0000 Subject: Fix filesystem-5.1 test failure on CYGWIN --- ChangeLog | 1 + tests/fileSystem.test | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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 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 "" -- cgit v0.12