diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-09-16 18:18:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-09-16 18:18:58 (GMT) |
| commit | a33ebfc70324c59441cbf1437559dc205bfec0fa (patch) | |
| tree | 37ab6d58ca7fa22dae0e3e6c2be27bd55cf5bf78 | |
| parent | a46ead9692a9b2e6ddedba10dc6e11d3cb6bfdda (diff) | |
| download | tcl-a33ebfc70324c59441cbf1437559dc205bfec0fa.zip tcl-a33ebfc70324c59441cbf1437559dc205bfec0fa.tar.gz tcl-a33ebfc70324c59441cbf1437559dc205bfec0fa.tar.bz2 | |
Revise tests. You can't robustly thread::release a thread that's not thread::wait-ing
| -rw-r--r-- | tests/unixNotfy.test | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/unixNotfy.test b/tests/unixNotfy.test index 9684bfe..2a17098 100644 --- a/tests/unixNotfy.test +++ b/tests/unixNotfy.test @@ -69,9 +69,8 @@ test unixNotfy-2.1 {Tcl_DeleteFileHandler} \ fileevent $f writable {set x 1} vwait x close $f - set t [thread::create -preserved "thread::send [thread::id] {set x ok}"] + thread::create "thread::send [thread::id] {set x ok}" vwait x - thread::release $t set x } \ -result {ok} \ @@ -91,9 +90,8 @@ test unixNotfy-2.2 {Tcl_DeleteFileHandler} \ close $f1 vwait y close $f2 - set t [thread::create -preserved "thread::send [thread::id] {set x ok}"] + thread::create "thread::send [thread::id] {set x ok}" vwait x - thread::release $t set x } \ -result {ok} \ |