summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-04-08 02:35:24 (GMT)
committerhobbs <hobbs>2000-04-08 02:35:24 (GMT)
commitae3441803a179bfb7e08477e76cbed5cf968ea16 (patch)
treecd2aaabb533a53beece56cbae81eae478b19d75f
parent76acf27a553213e962e6a4bc1567ffd348e981c4 (diff)
downloadtcl-ae3441803a179bfb7e08477e76cbed5cf968ea16.zip
tcl-ae3441803a179bfb7e08477e76cbed5cf968ea16.tar.gz
tcl-ae3441803a179bfb7e08477e76cbed5cf968ea16.tar.bz2
* library/tcltest1.0/tcltest.tcl (initConstraints): removed win32s
references (no longer supported)
-rw-r--r--library/tcltest/tcltest.tcl6
-rw-r--r--library/tcltest1.0/tcltest.tcl6
2 files changed, 2 insertions, 10 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index d16ee14..b3188a8 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -12,7 +12,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.22 2000/02/08 10:06:22 hobbs Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.23 2000/04/08 02:35:24 hobbs Exp $
package provide tcltest 1.0
@@ -484,8 +484,6 @@ proc ::tcltest::initConstraints {} {
"Windows 95"]
set ::tcltest::testConstraints(98) [string equal $tcl_platform(os) \
"Windows 98"]
- set ::tcltest::testConstraints(win32s) [string equal $tcl_platform(os) \
- "Win32s"]
# The following Constraints switches are used to mark tests that should
# work, but have been temporarily disabled on certain platforms because
@@ -505,8 +503,6 @@ proc ::tcltest::initConstraints {} {
set ::tcltest::testConstraints(pcCrash) \
[expr {!$::tcltest::testConstraints(pc)}]
- set ::tcltest::testConstraints(win32sCrash) \
- [expr {!$::tcltest::testConstraints(win32s)}]
set ::tcltest::testConstraints(macCrash) \
[expr {!$::tcltest::testConstraints(mac)}]
set ::tcltest::testConstraints(unixCrash) \
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl
index d16ee14..b3188a8 100644
--- a/library/tcltest1.0/tcltest.tcl
+++ b/library/tcltest1.0/tcltest.tcl
@@ -12,7 +12,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.22 2000/02/08 10:06:22 hobbs Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.23 2000/04/08 02:35:24 hobbs Exp $
package provide tcltest 1.0
@@ -484,8 +484,6 @@ proc ::tcltest::initConstraints {} {
"Windows 95"]
set ::tcltest::testConstraints(98) [string equal $tcl_platform(os) \
"Windows 98"]
- set ::tcltest::testConstraints(win32s) [string equal $tcl_platform(os) \
- "Win32s"]
# The following Constraints switches are used to mark tests that should
# work, but have been temporarily disabled on certain platforms because
@@ -505,8 +503,6 @@ proc ::tcltest::initConstraints {} {
set ::tcltest::testConstraints(pcCrash) \
[expr {!$::tcltest::testConstraints(pc)}]
- set ::tcltest::testConstraints(win32sCrash) \
- [expr {!$::tcltest::testConstraints(win32s)}]
set ::tcltest::testConstraints(macCrash) \
[expr {!$::tcltest::testConstraints(mac)}]
set ::tcltest::testConstraints(unixCrash) \