From 1d994e8c28b8cb027901f0f1208f9f0f73171f4f Mon Sep 17 00:00:00 2001
From: das <das>
Date: Wed, 12 Mar 2008 01:25:13 +0000
Subject: improve darwin9 constraint

---
 tests/fCmd.test | 5 +++--
 1 file 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
-- 
cgit v0.12