diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-07-07 17:41:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-07-07 17:41:00 (GMT) |
| commit | f3126d6258f2f5d12a84332b79d1f183778e0fc0 (patch) | |
| tree | 0b722edb6a44365e345ca1195aab3c5c6779d202 /tests/ioTrans.test | |
| parent | d655e0866270a535855a94980a08d087e0b9f9ab (diff) | |
| download | tcl-f3126d6258f2f5d12a84332b79d1f183778e0fc0.zip tcl-f3126d6258f2f5d12a84332b79d1f183778e0fc0.tar.gz tcl-f3126d6258f2f5d12a84332b79d1f183778e0fc0.tar.bz2 | |
Correct test suite errors revealed by a -singleproc 1 -debug 1 run.
Diffstat (limited to 'tests/ioTrans.test')
| -rw-r--r-- | tests/ioTrans.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/ioTrans.test b/tests/ioTrans.test index 8dbad78..3ea017b 100644 --- a/tests/ioTrans.test +++ b/tests/ioTrans.test @@ -1790,6 +1790,7 @@ test iortrans.tf-11.0 {origin thread of moved transform gone} -setup { } -constraints {testchannel testthread} -match glob -body { # Set up channel in thread testthread send $tida $helperscript + testthread send $tidb $helperscript set chan [testthread send $tida { proc foo {args} { handle.initialize clear drain flush limit? read write @@ -1816,8 +1817,8 @@ test iortrans.tf-11.0 {origin thread of moved transform gone} -setup { # The 'tell' is ok, as it passed through the transform to the base # channel without invoking the transform handler. } -cleanup { + testthread send $tidb tempdone tcltest::threadReap - tempdone } -result {1 {Owner lost} 0 0 1 {Owner lost} 1 {Owner lost} 1 {Owner lost}} test iortrans.tf-11.1 {origin thread of moved transform destroyed during access} -setup { #puts <<$tcltest::mainThread>>main @@ -1825,7 +1826,8 @@ test iortrans.tf-11.1 {origin thread of moved transform destroyed during access} set tidb [testthread create]; #puts <<$tidb>> } -constraints {testchannel testthread} -match glob -body { # Set up channel in thread - set chan [testthread send $tida $helperscript] + testthread send $tida $helperscript + testthread send $tidb $helperscript set chan [testthread send $tida { proc foo {args} { handle.initialize clear drain flush limit? read write @@ -1857,8 +1859,8 @@ test iortrans.tf-11.1 {origin thread of moved transform destroyed during access} vwait ::res return $res } -cleanup { + testthread send $tidb tempdone tcltest::threadReap - tempdone } -result {Owner lost} # ### ### ### ######### ######### ######### |