summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2008-03-12 01:25:13 (GMT)
committerdas <das>2008-03-12 01:25:13 (GMT)
commit1d994e8c28b8cb027901f0f1208f9f0f73171f4f (patch)
tree33f8497b3fa92a3b564b6b759460638fde82358f
parent3ca30c63a2f2d9bb22b1923614cfecca877c57a9 (diff)
downloadtcl-1d994e8c28b8cb027901f0f1208f9f0f73171f4f.zip
tcl-1d994e8c28b8cb027901f0f1208f9f0f73171f4f.tar.gz
tcl-1d994e8c28b8cb027901f0f1208f9f0f73171f4f.tar.bz2
improve darwin9 constraint
-rw-r--r--tests/fCmd.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test
index 073ead1..b6262ae 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.58 2008/03/11 22:22:56 das Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.59 2008/03/12 01:25:13 das Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -38,7 +38,8 @@ if {[testConstraint unix]} {
testConstraint darwin9 [expr {[testConstraint unix] &&
$tcl_platform(os) eq "Darwin" &&
- int([string index $tcl_platform(osVersion) 0]) >= 9}]
+ int([string range $tcl_platform(osVersion) 0 \
+ [string first . $tcl_platform(osVersion)]]) >= 9}]
testConstraint fileSharing 0
testConstraint notFileSharing 1