summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoe Mistachkin <joe@mistachkin.com>2015-06-05 19:59:59 (GMT)
committerJoe Mistachkin <joe@mistachkin.com>2015-06-05 19:59:59 (GMT)
commitd11070555bb8b7b4cca3a96325450bd3a42c7aaf (patch)
tree3318f7c256ac0bf3e6862abe805802937d5a4bc8
parent43df5e31605343be0c0fb479d528257bca53515e (diff)
parent0209d36677da9f01d910adf104ed84f066cc1ece (diff)
downloadtcl-d11070555bb8b7b4cca3a96325450bd3a42c7aaf.zip
tcl-d11070555bb8b7b4cca3a96325450bd3a42c7aaf.tar.gz
tcl-d11070555bb8b7b4cca3a96325450bd3a42c7aaf.tar.bz2
Merge thread test typo fixes from trunk.
-rw-r--r--tests/thread.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/thread.test b/tests/thread.test
index ee09020..cc4c871 100644
--- a/tests/thread.test
+++ b/tests/thread.test
@@ -564,7 +564,7 @@ test thread-7.14 {cancel: vwait} -constraints {thread drainEventQueue} -setup {
unset -nocomplain ::threadSawError ::threadError ::threadId ::threadIdStarted
} -body {
set serverthread [thread::create -joinable \
- [string map [list %ID [thread::id]] {
+ [string map [list %ID% [thread::id]] {
if {![info exists foo]} then {
# signal the primary thread that we are ready
# to be canceled now (we are running).
@@ -616,7 +616,7 @@ test thread-7.16 {cancel: expr} -constraints {thread drainEventQueue} -setup {
unset -nocomplain ::threadSawError ::threadError ::threadId ::threadIdStarted
} -body {
set serverthread [thread::create -joinable \
- [string map [list %ID [thread::id]] {
+ [string map [list %ID% [thread::id]] {
set i [interp create]
$i eval "package require -exact Thread [package present Thread]"
$i eval {
@@ -1372,7 +1372,7 @@ test thread-7.37 {cancel: send async thread cancel nested catch inside pure insi
unset -nocomplain ::threadSawError ::threadError ::threadId ::threadIdStarted
} -body {
set serverthread [thread::create -joinable \
- [string map [list %ID [thread::id]] {
+ [string map [list %ID% [thread::id]] {
proc foobar {} {
set catch catch
set while while