diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2002-06-21 14:31:38 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2002-06-21 14:31:38 (GMT) |
| commit | f49bffbddce8dc319ec226243b441f45e57c8e5a (patch) | |
| tree | d370ee243e0438444546a1e8e501517d7591f7dd | |
| parent | 89f677e0ee97aad492a2ab5040bfd413f9d13ae9 (diff) | |
| download | tcl-tip-99.zip tcl-tip-99.tar.gz tcl-tip-99.tar.bz2 | |
tip99tip-99
FossilOrigin-Name: 4950ea78156c11f829aab917e912fef92c1b6586
| -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} { |