diff options
| author | vincentdarley <vincentdarley> | 2002-06-21 14:31:38 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2002-06-21 14:31:38 (GMT) |
| commit | 93617c9d8b958201e45029c156004c8c6287c07d (patch) | |
| tree | d370ee243e0438444546a1e8e501517d7591f7dd /tests/fileSystem.test | |
| parent | bb4e2d03bf05b0d16efdf08c97daf5c1f2b35c7b (diff) | |
| download | tcl-93617c9d8b958201e45029c156004c8c6287c07d.zip tcl-93617c9d8b958201e45029c156004c8c6287c07d.tar.gz tcl-93617c9d8b958201e45029c156004c8c6287c07d.tar.bz2 | |
tip99tip_99
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 5e5e9c8..897d016 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -86,26 +86,26 @@ test filesystem-1.8 {link normalisation} {hasLinks} { [file normalize [file join dir.link inside.filefoo]] } {0} -test filesystem-1.9 {link normalisation} {hasLinks} { +test filesystem-1.9 {link normalisation} {macOrUnix hasLinks} { file delete -force dir.link file link dir.link [file nativename dir.file] string equal [file normalize [file join dir.file linkinside.file foo]] \ [file normalize [file join dir.link inside.file foo]] -} {0} +} {1} -test filesystem-1.10 {link normalisation: double link} {hasLinks} { +test filesystem-1.10 {link normalisation: double link} {macOrUnix hasLinks} { file link dir2.link dir.link string equal [file normalize [file join dir.file linkinside.file foo]] \ [file normalize [file join dir2.link inside.file foo]] -} {0} +} {1} makeDirectory dir2.file -test filesystem-1.11 {link normalisation: double link, back in tree} {hasLinks} { +test filesystem-1.11 {link normalisation: double link, back in tree} {macOrUnix hasLinks} { file link [file join dir2.file dir2.link] dir2.link string equal [file normalize [file join dir.file linkinside.file foo]] \ [file normalize [file join dir2.file dir2.link inside.file foo]] -} {0} +} {1} test filesystem-1.12 {file new native path} {} { for {set i 0} {$i < 10} {incr i} { |