summaryrefslogtreecommitdiffstats
path: root/tests/fCmd.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/fCmd.test')
-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