summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2004-07-17 12:18:14 (GMT)
committervincentdarley <vincentdarley>2004-07-17 12:18:14 (GMT)
commit4af5f58b2ad4e68a5391a885c1b34c6ea128f926 (patch)
tree793446b305b330ac83bde9f31783d5f0f89a7fe4 /tests
parent2235097de407afaaaeeb873f8c73758e17466b08 (diff)
downloadtcl-4af5f58b2ad4e68a5391a885c1b34c6ea128f926.zip
tcl-4af5f58b2ad4e68a5391a885c1b34c6ea128f926.tar.gz
tcl-4af5f58b2ad4e68a5391a885c1b34c6ea128f926.tar.bz2
cd infinite loop bug fixed
Diffstat (limited to 'tests')
-rw-r--r--tests/fileSystem.test17
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 172d9d6..fd4918a 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -893,6 +893,23 @@ test filesystem-7.7 {cross-filesystem dir copy with -force} \
removeFile gorp.file
+test filesystem-7.8 {vfs cd} {
+ set dir [pwd]
+ cd [tcltest::temporaryDirectory]
+ file delete -force simpledir
+ file mkdir simpledir
+ testsimplefilesystem 1
+ # This can variously cause an infinite loop or simply have
+ # no effect at all (before certain bugs were fixed, of course).
+ cd simplefs:/simpledir
+ set res [pwd]
+ cd [tcltest::temporaryDirectory]
+ testsimplefilesystem 0
+ file delete -force simpledir
+ cd $dir
+ set res
+} {simplefs:/simpledir}
+
test filesystem-8.1 {relative path objects and caching of pwd} {
set dir [pwd]
cd [tcltest::temporaryDirectory]