diff options
author | vincentdarley <vincentdarley@noemail.net> | 2004-01-29 11:47:25 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley@noemail.net> | 2004-01-29 11:47:25 (GMT) |
commit | dada5dbf2603014507e935e6a39f3a68dcb09d39 (patch) | |
tree | ac629d287927272ccb8a9aee532d69c358c1063b | |
parent | 7d8f26303b37b580b38e0d8366c677a344e2adb2 (diff) | |
download | tcl-dada5dbf2603014507e935e6a39f3a68dcb09d39.zip tcl-dada5dbf2603014507e935e6a39f3a68dcb09d39.tar.gz tcl-dada5dbf2603014507e935e6a39f3a68dcb09d39.tar.bz2 |
fix to test and comment
FossilOrigin-Name: 11032aae7cac7f3de528140f46e21eebb4d7db35
-rw-r--r-- | tests/fileSystem.test | 13 |
1 files 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]] \ |