diff options
| author | vincentdarley <vincentdarley> | 2002-04-03 14:30:04 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2002-04-03 14:30:04 (GMT) |
| commit | fb30c8f932db945e5d49842bc1f6c5675384ae3e (patch) | |
| tree | ea10c3f986c3383c740bb2f66bf39ac1eba5ab7e | |
| parent | 7aeafd8794e75f5c80d4c801dc71d0c7ea002bf9 (diff) | |
| download | tcl-fb30c8f932db945e5d49842bc1f6c5675384ae3e.zip tcl-fb30c8f932db945e5d49842bc1f6c5675384ae3e.tar.gz tcl-fb30c8f932db945e5d49842bc1f6c5675384ae3e.tar.bz2 | |
fs ~ cache clear test
| -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. |