summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--tests/winFCmd.test17
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