summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-09-12 16:19:07 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-09-12 16:19:07 (GMT)
commit7b78279bacaab05c7ae42e7e5b487e290a02292a (patch)
treea2acd41b66b27a177bba5b0ff62ae4625552bcfa /tests
parent9424dbc2b6756b6554197e3f3df7efc1e875de0d (diff)
downloadtcl-7b78279bacaab05c7ae42e7e5b487e290a02292a.zip
tcl-7b78279bacaab05c7ae42e7e5b487e290a02292a.tar.gz
tcl-7b78279bacaab05c7ae42e7e5b487e290a02292a.tar.bz2
Attempt to convert test thread-7.26
Diffstat (limited to 'tests')
-rw-r--r--tests/thread.test18
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/thread.test b/tests/thread.test
index 6cd4b5d..62cdb24 100644
--- a/tests/thread.test
+++ b/tests/thread.test
@@ -938,28 +938,28 @@ test thread-7.25 {cancel: nested catch inside pure inside-command loop} {testthr
[expr {[info exists ::threadError] ? \
[lindex [split $::threadError \n] 0] : "" }]
} {{} 1 0 {}}
-test thread-7.26 {cancel: send async cancel bad interp path} {testthread} {
- threadReap
- unset -nocomplain ::threadError ::threadId ::threadIdStarted
- set serverthread [testthread create -joinable {
+test thread-7.26 {cancel: send async cancel bad interp path} {thread} {
+ unset -nocomplain ::threadIdStarted
+ set serverthread [thread::create -preserved \
+ [string map [list MAIN [thread::id]] {
proc foobar {} {
while {1} {
if {![info exists foo]} then {
# signal the primary thread that we are ready
# to be canceled now (we are running).
- testthread send [testthread id -main] \
- [list set ::threadIdStarted [testthread id]]
+ thread::send MAIN \
+ [list set ::threadIdStarted [thread::id]]
set foo 1
}
update
}
}
foobar
- }]
+ }]]
# wait for other thread to signal "ready to cancel"
vwait ::threadIdStarted; after 1000
- catch {testthread send $serverthread {interp cancel -- bad}} msg
- threadReap
+ catch {thread::send $serverthread {interp cancel -- bad}} msg
+ thread::release -wait $serverthread
list [expr {[info exists ::threadIdStarted] ? \
$::threadIdStarted == $serverthread : 0}] \
$msg