summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2002-04-03 14:30:04 (GMT)
committervincentdarley <vincentdarley>2002-04-03 14:30:04 (GMT)
commitfb30c8f932db945e5d49842bc1f6c5675384ae3e (patch)
treeea10c3f986c3383c740bb2f66bf39ac1eba5ab7e /tests
parent7aeafd8794e75f5c80d4c801dc71d0c7ea002bf9 (diff)
downloadtcl-fb30c8f932db945e5d49842bc1f6c5675384ae3e.zip
tcl-fb30c8f932db945e5d49842bc1f6c5675384ae3e.tar.gz
tcl-fb30c8f932db945e5d49842bc1f6c5675384ae3e.tar.bz2
fs ~ cache clear test
Diffstat (limited to 'tests')
-rw-r--r--tests/fileSystem.test14
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.