From 21d9b73e7f3b78beaddbca2dba1e19b4bc98b470 Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Wed, 5 Sep 2001 08:21:18 +0000
Subject: winFCmd.test fix

---
 ChangeLog          |  5 +++++
 tests/winFCmd.test | 17 +++++++++++------
 2 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1d45661..025c105 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-05 Vince Darley <vincentdarley@users.sourceforge.net>
+
+	* tests/winFCmd.test: made notWin2000 constraint false if not
+	running on Windows at all.
+	
 2001-09-04  David Gravereaux <davygrvy@pobox.com>
 
 	* win/tclWinThrd.c:  Revisited _beginthreadex() stuff.  Instead
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index d63a073..a53693d 100644
--- a/tests/winFCmd.test
+++ b/tests/winFCmd.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: winFCmd.test,v 1.12 2001/09/04 18:06:34 vincentdarley Exp $
+# RCS: @(#) $Id: winFCmd.test,v 1.13 2001/09/05 08:21:18 vincentdarley Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -44,13 +44,18 @@ proc cleanup {args} {
     }
 }
 
-if {[string equal $tcl_platform(os) "Windows NT"] \
-  && [string equal [string index $tcl_platform(osVersion) 0] "5"]} {
-    tcltest::testConstraint win2000 1
-    tcltest::testConstraint notWin2000 0
+if {[string equal $tcl_platform(platform) "windows"]} {
+    if {[string equal $tcl_platform(os) "Windows NT"] \
+      && [string equal [string index $tcl_platform(osVersion) 0] "5"]} {
+	tcltest::testConstraint win2000 1
+	tcltest::testConstraint notWin2000 0
+    } else {
+	tcltest::testConstraint win2000 0
+	tcltest::testConstraint notWin2000 1
+    }
 } else {
     tcltest::testConstraint win2000 0
-    tcltest::testConstraint notWin2000 1
+    tcltest::testConstraint notWin2000 0
 }
 
 set ::tcltest::testConstraints(cdrom) 0
-- 
cgit v0.12