diff options
| author | vincentdarley <vincentdarley> | 2004-01-29 11:47:26 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2004-01-29 11:47:26 (GMT) |
| commit | f393b06a1b015bead87413f17e1ad8139c6bf5ee (patch) | |
| tree | ac629d287927272ccb8a9aee532d69c358c1063b | |
| parent | f5c319ed1e839e9256fcad85b69c4fde1d5d7c97 (diff) | |
| download | tcl-f393b06a1b015bead87413f17e1ad8139c6bf5ee.zip tcl-f393b06a1b015bead87413f17e1ad8139c6bf5ee.tar.gz tcl-f393b06a1b015bead87413f17e1ad8139c6bf5ee.tar.bz2 | |
fix to test and comment
| -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]] \ |