summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2001-09-05 08:21:18 (GMT)
committervincentdarley <vincentdarley>2001-09-05 08:21:18 (GMT)
commit21d9b73e7f3b78beaddbca2dba1e19b4bc98b470 (patch)
tree76065757a8cf57f9ccd64ce6ae81d1cbcd6b809c /tests
parent5f87c32b058b894079bced19ec4c68f39bd7624c (diff)
downloadtcl-21d9b73e7f3b78beaddbca2dba1e19b4bc98b470.zip
tcl-21d9b73e7f3b78beaddbca2dba1e19b4bc98b470.tar.gz
tcl-21d9b73e7f3b78beaddbca2dba1e19b4bc98b470.tar.bz2
winFCmd.test fix
Diffstat (limited to 'tests')
-rw-r--r--tests/winFCmd.test17
1 files changed, 11 insertions, 6 deletions
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