diff options
| author | dgp@users.sourceforge.net <dgp> | 2002-07-09 17:53:53 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2002-07-09 17:53:53 (GMT) |
| commit | bda518fc0473af64a31968ec54218b1b979fa292 (patch) | |
| tree | 1edace978ebe84f24e57fa29dede9bdbe11a3d65 /tests | |
| parent | a482852ec2a2826ff6175c1679f373396d0ad192 (diff) | |
| download | tk-bda518fc0473af64a31968ec54218b1b979fa292.zip tk-bda518fc0473af64a31968ec54218b1b979fa292.tar.gz tk-bda518fc0473af64a31968ec54218b1b979fa292.tar.bz2 | |
* generic/tkTest.c: Removed unused dependence on TclThread_Init()
* tests/defs.tcl: and [testthread]. [Bug 578165, Tcl Bug 531413]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/defs.tcl | 41 |
1 files changed, 2 insertions, 39 deletions
diff --git a/tests/defs.tcl b/tests/defs.tcl index 1007465..a25fe46 100644 --- a/tests/defs.tcl +++ b/tests/defs.tcl @@ -11,7 +11,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: defs.tcl,v 1.10 2002/06/18 08:24:15 dkf Exp $ +# RCS: @(#) $Id: defs.tcl,v 1.11 2002/07/09 17:53:54 dgp Exp $ # Initialize wish shell @@ -31,7 +31,7 @@ namespace eval tcltest { set procList [list test cleanupTests dotests saveState restoreState \ normalizeMsg makeFile removeFile makeDirectory removeDirectory \ viewFile bytestring set_iso8859_1_locale restore_locale \ - safeFetch threadReap] + safeFetch] if {[info exists tk_version]} { lappend procList setupbg dobg bgReady cleanupbg fixfocus } @@ -92,12 +92,6 @@ namespace eval tcltest { array set ::tcltest::skippedBecause {} - # tests that use thread need to know which is the main thread - - variable ::tcltest::mainThread 1 - if {[info commands testthread] != {}} { - set ::tcltest::mainThread [testthread names] - } } # If there is no "memory" command (because memory debugging isn't @@ -1063,37 +1057,6 @@ if {[info exists tk_version]} { } } -# threadReap -- -# -# Kill all threads except for the main thread. -# Do nothing if testthread is not defined. -# -# Arguments: -# none. -# -# Results: -# Returns the number of existing threads. - -if {[info commands testthread] != {}} { - proc ::tcltest::threadReap {} { - testthread errorproc ThreadNullError - while {[llength [testthread names]] > 1} { - foreach tid [testthread names] { - if {$tid != $::tcltest::mainThread} { - catch {testthread send -async $tid {testthread exit}} - update - } - } - } - testthread errorproc ThreadError - return [llength [testthread names]] - } -} else { - proc ::tcltest::threadReap {} { - return 1 - } -} - # Need to catch the import because it fails if defs.tcl is sourced # more than once. |