diff options
| -rw-r--r-- | tests/chanio.test | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 46a0c06..4e6fcc1 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -6379,12 +6379,16 @@ test chan-io-50.1 {testing handler deletion} -setup { set f [open $path(test1) w] chan close $f set f [open $path(test1) r] + variable z not_called + set timer [after 50 lappend z timeout] + testservicemode 0 testchannelevent $f add readable [namespace code { variable z called testchannelevent $f delete 0 }] - variable z not_called - update + testservicemode 1 + vwait z + after cancel $timer set z } -cleanup { chan close $f |