diff options
| -rw-r--r-- | ChangeLog | 1 | ||||
| -rw-r--r-- | tests/fileSystem.test | 14 |
2 files changed, 15 insertions, 0 deletions
@@ -4,6 +4,7 @@ * generic/tclIOUtil.c: invalidate filesystem cache when the user changes env(HOME). Fixes [Bug #535621]. Also cleaned up some of the documentation. + * tests/fileSystem.test: added test for bug just fixed. 2002-04-01 Kevin Kenny <kennykb@acm.org> diff --git a/tests/fileSystem.test b/tests/fileSystem.test index ecc6523..eb0a082 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -150,6 +150,20 @@ test filesystem-4.3 {testfilesystem} { -result {* {matchindirectory *}*} } +test filesystem-5.1 {cache and ~} { + -body { + set orig $env(HOME) + set ::env(HOME) /foo/bar/blah + set testdir ~ + set res1 "Parent of ~ (/foo/bar/blah) is [file dirname $testdir]" + set ::env(HOME) /a/b/c + set res2 "Parent of ~ (/a/b/c) is [file dirname $testdir]" + list $res1 $res2 + } + -result {{Parent of ~ (/foo/bar/blah) is /foo/bar} {Parent of ~ (/a/b/c) is /a/b}} +} + + # cleanup catch {unset filesystemReport} # Make sure the testfilesystem hasn't been registered. |