summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2002-06-21 14:31:38 (GMT)
committervincentdarley <vincentdarley>2002-06-21 14:31:38 (GMT)
commit93617c9d8b958201e45029c156004c8c6287c07d (patch)
treed370ee243e0438444546a1e8e501517d7591f7dd
parentbb4e2d03bf05b0d16efdf08c97daf5c1f2b35c7b (diff)
downloadtcl-93617c9d8b958201e45029c156004c8c6287c07d.zip
tcl-93617c9d8b958201e45029c156004c8c6287c07d.tar.gz
tcl-93617c9d8b958201e45029c156004c8c6287c07d.tar.bz2
tip99tip_99
-rw-r--r--tests/fileSystem.test12
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} {