summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2004-01-29 11:47:26 (GMT)
committervincentdarley <vincentdarley>2004-01-29 11:47:26 (GMT)
commitf393b06a1b015bead87413f17e1ad8139c6bf5ee (patch)
treeac629d287927272ccb8a9aee532d69c358c1063b /tests
parentf5c319ed1e839e9256fcad85b69c4fde1d5d7c97 (diff)
downloadtcl-f393b06a1b015bead87413f17e1ad8139c6bf5ee.zip
tcl-f393b06a1b015bead87413f17e1ad8139c6bf5ee.tar.gz
tcl-f393b06a1b015bead87413f17e1ad8139c6bf5ee.tar.bz2
fix to test and comment
Diffstat (limited to 'tests')
-rw-r--r--tests/fileSystem.test13
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]] \