diff options
| author | vincentdarley <vincentdarley> | 2004-09-27 15:00:25 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2004-09-27 15:00:25 (GMT) |
| commit | 6fcff1d789f4f9d4fb6336668edfaba407b4dddb (patch) | |
| tree | 4703373dd878abf4d2fcb6ee0fed5febf8af8046 /tests/fileSystem.test | |
| parent | b2ddd5afb45d64091bc8d01b2b113523ffd74d45 (diff) | |
| download | tcl-6fcff1d789f4f9d4fb6336668edfaba407b4dddb.zip tcl-6fcff1d789f4f9d4fb6336668edfaba407b4dddb.tar.gz tcl-6fcff1d789f4f9d4fb6336668edfaba407b4dddb.tar.bz2 | |
fix to small filesystem bugs
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index fd4918a..a56e56d 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -539,7 +539,7 @@ test filesystem-5.1 {cache and ~} { set ::env(HOME) $orig list $res1 $res2 } - -result {{Parent of ~ \(/foo/bar/blah\) is (/foo/bar|foo:bar)} {Parent of ~ \(/a/b/c\) is (/a/b|a:b)}} + -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)}} } test filesystem-6.1 {empty file name} { |