diff options
| author | nijtmans <nijtmans> | 2010-05-31 09:12:04 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-05-31 09:12:04 (GMT) |
| commit | 67dc34a79def67d6d61add7f0635c45806fc7a50 (patch) | |
| tree | 20cfb3394502a1e9f9352e96c0fd715421e2b273 | |
| parent | 3de22ff5a384e6d63befbefeb166e2b60bd419b1 (diff) | |
| download | tcl-67dc34a79def67d6d61add7f0635c45806fc7a50.zip tcl-67dc34a79def67d6d61add7f0635c45806fc7a50.tar.gz tcl-67dc34a79def67d6d61add7f0635c45806fc7a50.tar.bz2 | |
Fix filesystem-5.1 test failure on CYGWIN
| -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 "" |