summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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