diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2003-02-10 10:26:19 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2003-02-10 10:26:19 (GMT) |
| commit | fbdc918e2a9aa85153ac460ab5edf00e8c2c9605 (patch) | |
| tree | 6b5cf965bfd562f73bbc5ea7df396db96fb238cd /tests/fileSystem.test | |
| parent | a16348cd7741beb6e917e7b5b1a8c22162779965 (diff) | |
| download | tcl-fbdc918e2a9aa85153ac460ab5edf00e8c2c9605.zip tcl-fbdc918e2a9aa85153ac460ab5edf00e8c2c9605.tar.gz tcl-fbdc918e2a9aa85153ac460ab5edf00e8c2c9605.tar.bz2 | |
filesystem speed up round 2
FossilOrigin-Name: 1f9c0e4f03a1887a627fd66e6affceebf25f9519
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 37a0666..dfb42bb 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -423,7 +423,6 @@ 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] @@ -445,6 +444,22 @@ test filesystem-8.1 {relative path objects and caching of pwd} { set res } {1 1 0 0} +test filesystem-8.2 {relative path objects and use of pwd} { + set origdir [pwd] + cd [tcltest::temporaryDirectory] + set dir "abc" + makeDirectory $dir + makeFile "contents" [file join abc foo] + cd $dir + set res [file exists [lindex [glob *] 0]] + cd .. + removeFile [file join abc foo] + removeDirectory abc + removeDirectory def + cd $origdir + set res +} {1} + cleanupTests } namespace delete ::tcl::test::fileSystem |