diff options
| author | hobbs <hobbs@noemail.net> | 2000-04-08 02:35:23 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2000-04-08 02:35:23 (GMT) |
| commit | 04b84ebd7281895720ee205700c5f73ec081ac37 (patch) | |
| tree | cd2aaabb533a53beece56cbae81eae478b19d75f /library | |
| parent | 5c18bb587172615f980e7d05094f20fdaf034145 (diff) | |
| download | tcl-04b84ebd7281895720ee205700c5f73ec081ac37.zip tcl-04b84ebd7281895720ee205700c5f73ec081ac37.tar.gz tcl-04b84ebd7281895720ee205700c5f73ec081ac37.tar.bz2 | |
* library/tcltest1.0/tcltest.tcl (initConstraints): removed win32s
references (no longer supported)
FossilOrigin-Name: 4c4ac9c48f0dafc21169a55ec426356ac1f649e5
Diffstat (limited to 'library')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 6 | ||||
| -rw-r--r-- | library/tcltest1.0/tcltest.tcl | 6 |
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) \ |