summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-01-28 14:52:40 (GMT)
committervincentdarley <vincentdarley>2003-01-28 14:52:40 (GMT)
commit3d55b9414bbdc5a83e0b571616137f34312e668b (patch)
treedf684e9d1c3c44044a8e1a18492f61795a8b0e9e /tests
parentdca14b67b236f60b40e7bdcdff7e01a3f2288753 (diff)
downloadtcl-3d55b9414bbdc5a83e0b571616137f34312e668b.zip
tcl-3d55b9414bbdc5a83e0b571616137f34312e668b.tar.gz
tcl-3d55b9414bbdc5a83e0b571616137f34312e668b.tar.bz2
filesystem bug fix and new test
Diffstat (limited to 'tests')
-rw-r--r--tests/fileSystem.test14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 2185dbf..3dbaf88 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -390,6 +390,20 @@ test filesystem-6.33 {empty file name} {
while {![catch {testfilesystem 0}]} {}
}
+test filesystem-7.1 {load from vfs} {win} {
+ # This may cause a crash on exit
+ set dir [pwd]
+ cd [file dirname [info nameof]]
+ set dde [lindex [glob *dde*[info sharedlib]] 0]
+ testsimplefilesystem 1
+ # This loads dde via a complex copy-to-temp operation
+ load simplefs:/$dde dde
+ testsimplefilesystem 0
+ cd $dir
+ set res "ok"
+ # The real result of this test is what happens when Tcl exits.
+} {ok}
+
cleanupTests
}
namespace delete ::tcl::test::fileSystem