diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-07-26 11:56:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-07-26 11:56:57 (GMT) |
| commit | 6f541de9a3a5684df538e29e14259aecc2addeeb (patch) | |
| tree | 5bee1f4725a5e88396e4b86bac3af5649abef9be /tests/ioCmd.test | |
| parent | 87df0b3b65c1bde69b3eb846b990c87cddf24ab5 (diff) | |
| parent | 93f5ab8b03bec7f45aa57cac04a42a42381452f9 (diff) | |
| download | tcl-6f541de9a3a5684df538e29e14259aecc2addeeb.zip tcl-6f541de9a3a5684df538e29e14259aecc2addeeb.tar.gz tcl-6f541de9a3a5684df538e29e14259aecc2addeeb.tar.bz2 | |
Merge 8.5
Diffstat (limited to 'tests/ioCmd.test')
| -rw-r--r-- | tests/ioCmd.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 948671e..14c3a4e 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -1985,7 +1985,7 @@ test iocmd-31.6 {chan postevent, posted events do happen} -match glob -body { proc foo {args} {oninit; onfinal; track; return} set c [chan create {r w} foo] note [fileevent $c readable {note TOCK}] - set stop [after 10000 {note TIMEOUT}] + set stop [after 15000 {note TIMEOUT}] after 1000 {note [chan postevent $c r]} vwait ::res catch {after cancel $stop} @@ -1998,7 +1998,7 @@ test iocmd-31.7 {chan postevent, posted events do happen} -match glob -body { proc foo {args} {oninit; onfinal; track; return} set c [chan create {r w} foo] note [fileevent $c writable {note TOCK}] - set stop [after 10000 {note TIMEOUT}] + set stop [after 15000 {note TIMEOUT}] after 1000 {note [chan postevent $c w]} vwait ::res catch {after cancel $stop} |