diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-26 14:54:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-26 14:54:47 (GMT) |
| commit | 1f7a1beab25bccf98fa6643e73672de5fb5b5fd1 (patch) | |
| tree | 09340b460b328cfa5d6ea5726cb753fce70fe10b /tests | |
| parent | 7aa8eec8976c27e9a6f3e3d39f0008e6fb1b063d (diff) | |
| parent | 43d2fdc86c454dc83a6fe24125d0fd1188cc1bfa (diff) | |
| download | tcl-1f7a1beab25bccf98fa6643e73672de5fb5b5fd1.zip tcl-1f7a1beab25bccf98fa6643e73672de5fb5b5fd1.tar.gz tcl-1f7a1beab25bccf98fa6643e73672de5fb5b5fd1.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 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 |