diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2002-04-03 14:30:04 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2002-04-03 14:30:04 (GMT) |
| commit | d7a247b63a978a19b2fc7ccea47754e03ba72602 (patch) | |
| tree | ea10c3f986c3383c740bb2f66bf39ac1eba5ab7e /tests/fileSystem.test | |
| parent | 569b990887749a9adb0143254906160f78e734fc (diff) | |
| download | tcl-d7a247b63a978a19b2fc7ccea47754e03ba72602.zip tcl-d7a247b63a978a19b2fc7ccea47754e03ba72602.tar.gz tcl-d7a247b63a978a19b2fc7ccea47754e03ba72602.tar.bz2 | |
fs ~ cache clear test
FossilOrigin-Name: b3adffad69367480e7618e52f168b9cfc84a9178
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 14 |
1 files changed, 14 insertions, 0 deletions
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. |