diff options
author | Joe Mistachkin <joe@mistachkin.com> | 2015-06-05 19:59:59 (GMT) |
---|---|---|
committer | Joe Mistachkin <joe@mistachkin.com> | 2015-06-05 19:59:59 (GMT) |
commit | d11070555bb8b7b4cca3a96325450bd3a42c7aaf (patch) | |
tree | 3318f7c256ac0bf3e6862abe805802937d5a4bc8 /tests | |
parent | 43df5e31605343be0c0fb479d528257bca53515e (diff) | |
parent | 0209d36677da9f01d910adf104ed84f066cc1ece (diff) | |
download | tcl-d11070555bb8b7b4cca3a96325450bd3a42c7aaf.zip tcl-d11070555bb8b7b4cca3a96325450bd3a42c7aaf.tar.gz tcl-d11070555bb8b7b4cca3a96325450bd3a42c7aaf.tar.bz2 |
Merge thread test typo fixes from trunk.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/thread.test | 6 |
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 |