From f393b06a1b015bead87413f17e1ad8139c6bf5ee Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Thu, 29 Jan 2004 11:47:26 +0000
Subject: fix to test and comment

---
 tests/fileSystem.test | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index a311c90..67f0cc1 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -289,7 +289,13 @@ test filesystem-1.32 {link normalisation: link near filesystem root} {testsetpla
 
 test filesystem-1.33 {link normalisation: link near filesystem root} {testsetplatform} {
     testsetplatform windows
-    file normalize C:/../bar
+    set res [file normalize C:/../bar]
+    if {$::tcl_platform(platform) == "unix"} {
+	# Some unices go further in normalizing this -- not really
+	# a problem since this is a Windows test
+	regexp {C:/bar$} $res res
+    }
+    set res
 } {C:/bar}
 
 if {[tcltest::testConstraint testsetplatform]} {
@@ -737,11 +743,14 @@ test filesystem-7.7 {cross-filesystem dir copy with -force} \
     # First copy should succeed
     set res [catch {file copy simplefs:/simpledir dir2} err]
     lappend res $err
-    file attributes file2 -permissions 0000
+    file attributes dir2 -permissions 0000
     # Second copy should fail (no -force)
     lappend res [catch {file copy simplefs:/simpledir dir2} err]
     lappend res $err
     # Third copy should succeed (-force)
+    # I've noticed on some Unices that this only succeeds
+    # intermittently (some runs work, some fail).  This needs
+    # examining further.
     lappend res [catch {file copy -force simplefs:/simpledir dir2} err]
     lappend res $err
     lappend res [file exists [file join dir2 simpledir]] \
-- 
cgit v0.12