summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-02-10 10:26:20 (GMT)
committervincentdarley <vincentdarley>2003-02-10 10:26:20 (GMT)
commit850d398c1a0776e72d591c406090dfaca8492aeb (patch)
tree6b5cf965bfd562f73bbc5ea7df396db96fb238cd /tests
parent5a491dc83a0616f7e8fae279e04ec524d32ee01e (diff)
downloadtcl-850d398c1a0776e72d591c406090dfaca8492aeb.zip
tcl-850d398c1a0776e72d591c406090dfaca8492aeb.tar.gz
tcl-850d398c1a0776e72d591c406090dfaca8492aeb.tar.bz2
filesystem speed up round 2
Diffstat (limited to 'tests')
-rw-r--r--tests/fileSystem.test17
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