summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
Diffstat (limited to 'library')
-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) \