diff options
author | vincentdarley <vincentdarley@noemail.net> | 2003-04-11 15:59:49 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley@noemail.net> | 2003-04-11 15:59:49 (GMT) |
commit | 2a86f08857f28dd11ba6aa63e988f56ead491bff (patch) | |
tree | 324d5cddf5f2dfe379c3cf1427347351d8d683a5 /tests/fileSystem.test | |
parent | acc2d5325d80f3c7926a1b95d73a7f978d8abc30 (diff) | |
download | tcl-2a86f08857f28dd11ba6aa63e988f56ead491bff.zip tcl-2a86f08857f28dd11ba6aa63e988f56ead491bff.tar.gz tcl-2a86f08857f28dd11ba6aa63e988f56ead491bff.tar.bz2 |
fix 5 small filesystem bugs, and some typos
FossilOrigin-Name: da7df285d16e6c300a236937fed598de6a78cbdc
Diffstat (limited to 'tests/fileSystem.test')
-rw-r--r-- | tests/fileSystem.test | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index f35eae1..08d4a88 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -43,6 +43,9 @@ if {[catch { tcltest::testConstraint hasLinks 1 } +tcltest::testConstraint testsimplefilesystem \ + [string equal testsimplefilesystem [info commands testsimplefilesystem]] + test filesystem-1.0 {link normalisation} {hasLinks} { string equal [file normalize gorp.file] [file normalize link.file] } {0} @@ -389,7 +392,7 @@ test filesystem-6.33 {empty file name} { while {![catch {testfilesystem 0}]} {} } -test filesystem-7.1 {load from vfs} {win} { +test filesystem-7.1 {load from vfs} {win testsimplefilesystem} { # This may cause a crash on exit set dir [pwd] cd [file dirname [info nameof]] @@ -403,7 +406,8 @@ test filesystem-7.1 {load from vfs} {win} { # The real result of this test is what happens when Tcl exits. } {ok} -test filesystem-7.2 {cross-filesystem copy from vfs maintains mtime} { +test filesystem-7.2 {cross-filesystem copy from vfs maintains mtime} \ + {testsimplefilesystem} { set dir [pwd] cd [tcltest::temporaryDirectory] # We created this file several tests ago. |