diff options
| author | kjnash <k.j.nash@usa.net> | 2020-08-27 15:15:55 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2020-08-27 15:15:55 (GMT) |
| commit | c1d3ca8bae0a5f263915dfe708dda37e5ebb6a0d (patch) | |
| tree | 43d7d54f1b606dc52459352c8d70bdcb1f2a2e0f /tests | |
| parent | 171bea3624e84c0fe616ac8bef5d7e8138bdc359 (diff) | |
| parent | 43d2fdc86c454dc83a6fe24125d0fd1188cc1bfa (diff) | |
| download | tcl-c1d3ca8bae0a5f263915dfe708dda37e5ebb6a0d.zip tcl-c1d3ca8bae0a5f263915dfe708dda37e5ebb6a0d.tar.gz tcl-c1d3ca8bae0a5f263915dfe708dda37e5ebb6a0d.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 |