diff options
| author | kjnash <k.j.nash@usa.net> | 2020-08-27 15:12:35 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2020-08-27 15:12:35 (GMT) |
| commit | ffe530a1b24ea0185fc352f150319807d8b86c6c (patch) | |
| tree | 3eb2507bcd6d571d3d915f6972c506a89891d6bf /tests | |
| parent | 06a30a3a2acfa22ae71c137e7abb28e61748f496 (diff) | |
| parent | 43d2fdc86c454dc83a6fe24125d0fd1188cc1bfa (diff) | |
| download | tcl-ffe530a1b24ea0185fc352f150319807d8b86c6c.zip tcl-ffe530a1b24ea0185fc352f150319807d8b86c6c.tar.gz tcl-ffe530a1b24ea0185fc352f150319807d8b86c6c.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests')
| -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 66f4a30..10f3624 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -6380,12 +6380,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 |