diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2003-02-07 15:29:27 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2003-02-07 15:29:27 (GMT) |
| commit | f05c7e95c1c25de7c9cdf8aa1a956af94e6b4a55 (patch) | |
| tree | df0c27aa852fca86559e364d49d3f08ff7d9cac8 /tests/fileSystem.test | |
| parent | a834d4f235276cae8f2fd1a2b85e47971f8b1d6e (diff) | |
| download | tcl-f05c7e95c1c25de7c9cdf8aa1a956af94e6b4a55.zip tcl-f05c7e95c1c25de7c9cdf8aa1a956af94e6b4a55.tar.gz tcl-f05c7e95c1c25de7c9cdf8aa1a956af94e6b4a55.tar.bz2 | |
first speedups to Win filesystem
FossilOrigin-Name: e7c1a408636fa6c2f50eab390de6429992af7e51
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 9a4f1c2..37a0666 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -420,6 +420,31 @@ test filesystem-7.2 {cross-filesystem copy from vfs maintains mtime} { removeFile gorp.file +test filesystem-8.1 {relative path objects and caching of pwd} { + set dir [pwd] + cd [tcltest::temporaryDirectory] + # We created this file several tests ago. + makeDirectory abc + makeDirectory def + makeFile "contents" [file join abc foo] + cd abc + set f "foo" + set res {} + lappend res [file exists $f] + lappend res [file exists $f] + cd .. + cd def + # If we haven't cleared the object's cwd cache, Tcl + # will think it still exists. + lappend res [file exists $f] + lappend res [file exists $f] + removeFile [file join abc foo] + removeDirectory abc + removeDirectory def + cd $dir + set res +} {1 1 0 0} + cleanupTests } namespace delete ::tcl::test::fileSystem |