diff options
| author | redman <redman> | 1999-07-22 23:45:52 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-07-22 23:45:52 (GMT) |
| commit | 9e9f6a1ae649463e3d3cc5f0b052e6ad644cc5ac (patch) | |
| tree | 91e7b73adabbe60410c1d3bfbf80a468f97cd3f3 /tests/safe.test | |
| parent | 56b77d9d6c418f3dee04f0b31834ad76e69e11dd (diff) | |
| download | tcl-9e9f6a1ae649463e3d3cc5f0b052e6ad644cc5ac.zip tcl-9e9f6a1ae649463e3d3cc5f0b052e6ad644cc5ac.tar.gz tcl-9e9f6a1ae649463e3d3cc5f0b052e6ad644cc5ac.tar.bz2 | |
Fix hange with socket code (win32) with threads enabled, fixed
the semaphores for threads disabled. Fixed calling of tcltest
in Makefile.in (win32) and fixed safe-6.3 for threads enabled.
Diffstat (limited to 'tests/safe.test')
| -rw-r--r-- | tests/safe.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/safe.test b/tests/safe.test index b453543..48782cf 100644 --- a/tests/safe.test +++ b/tests/safe.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: safe.test,v 1.7 1999/06/26 20:55:12 rjohnson Exp $ +# RCS: @(#) $Id: safe.test,v 1.8 1999/07/22 23:45:52 redman Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -180,6 +180,10 @@ test safe-6.3 {test safe interpreters knowledge of the world} { [lsearch $r "debug"] != -1} { set r [lreplace $r 1 1] } + set threaded [lsearch $r "threaded"] + if {$threaded != -1} { + set r [lreplace $r $threaded $threaded] + } set r } {byteOrder platform} |