summaryrefslogtreecommitdiffstats
path: root/tests/fCmd.test
diff options
context:
space:
mode:
authordas <das>2008-03-11 22:22:56 (GMT)
committerdas <das>2008-03-11 22:22:56 (GMT)
commit964479ff7f21913d53a84477d3ba9dea1b2e5490 (patch)
treeb2dcbf56250b1dc085862945448b058d71d6e9eb /tests/fCmd.test
parent927fbda30f0ee4a5e2201dc1539f392e15a19412 (diff)
downloadtcl-964479ff7f21913d53a84477d3ba9dea1b2e5490.zip
tcl-964479ff7f21913d53a84477d3ba9dea1b2e5490.tar.gz
tcl-964479ff7f21913d53a84477d3ba9dea1b2e5490.tar.bz2
* tests/fCmd.test (fCmd-9.4): skip on Darwin 9 (xfail).
Diffstat (limited to 'tests/fCmd.test')
-rw-r--r--tests/fCmd.test8
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test
index 41dc1b1..073ead1 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: fCmd.test,v 1.57 2006/11/10 01:55:57 das Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.58 2008/03/11 22:22:56 das Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -36,6 +36,10 @@ if {[testConstraint unix]} {
}
}
+testConstraint darwin9 [expr {[testConstraint unix] &&
+ $tcl_platform(os) eq "Darwin" &&
+ int([string index $tcl_platform(osVersion) 0]) >= 9}]
+
testConstraint fileSharing 0
testConstraint notFileSharing 1
testConstraint xdev 0
@@ -701,7 +705,7 @@ test fCmd-9.3 {file rename: comprehensive: file to new name} {notRoot testchmod}
file rename tf2 tf4
list [lsort [glob tf*]] [file writable tf3] [file writable tf4]
} {{tf3 tf4} 1 0}
-test fCmd-9.4 {file rename: comprehensive: dir to new name} {unixOrPc notRoot testchmod} {
+test fCmd-9.4 {file rename: comprehensive: dir to new name} {unixOrPc notRoot testchmod !darwin9} {
cleanup
file mkdir td1 td2
testchmod 555 td2