diff options
| author | vincentdarley <vincentdarley> | 2003-02-07 15:29:28 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-02-07 15:29:28 (GMT) |
| commit | bffcbb27b4c0752331ae563dd130038f61ee098d (patch) | |
| tree | df0c27aa852fca86559e364d49d3f08ff7d9cac8 /tests/fileSystem.test | |
| parent | e0cb0bc6b979e367d80f72a624325d14a50ab6eb (diff) | |
| download | tcl-bffcbb27b4c0752331ae563dd130038f61ee098d.zip tcl-bffcbb27b4c0752331ae563dd130038f61ee098d.tar.gz tcl-bffcbb27b4c0752331ae563dd130038f61ee098d.tar.bz2 | |
first speedups to Win filesystem
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 |