diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2003-01-28 14:52:40 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2003-01-28 14:52:40 (GMT) |
| commit | 082c36ecaa2ee63d47378c23a9daf5e69e166050 (patch) | |
| tree | df684e9d1c3c44044a8e1a18492f61795a8b0e9e /tests/fileSystem.test | |
| parent | ab924776f5c65a07ebd3d8587a970da77c262f8b (diff) | |
| download | tcl-082c36ecaa2ee63d47378c23a9daf5e69e166050.zip tcl-082c36ecaa2ee63d47378c23a9daf5e69e166050.tar.gz tcl-082c36ecaa2ee63d47378c23a9daf5e69e166050.tar.bz2 | |
filesystem bug fix and new test
FossilOrigin-Name: 083e6f570acdb3302c2476b07cacb4dd050cb589
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 14 |
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 |