summaryrefslogtreecommitdiffstats
path: root/tests/fileSystem.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/fileSystem.test')
-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