diff options
| author | culler <culler> | 2020-08-10 01:27:37 (GMT) |
|---|---|---|
| committer | culler <culler> | 2020-08-10 01:27:37 (GMT) |
| commit | 823d13656d0f81807f40c7029fcf4bf38215dedc (patch) | |
| tree | 59c2c67cba24e3ea50898a9bb0d05f777df6b581 /tests | |
| parent | 5ed72038daa012a53d8b654d220d065b7bb3989c (diff) | |
| download | tcl-823d13656d0f81807f40c7029fcf4bf38215dedc.zip tcl-823d13656d0f81807f40c7029fcf4bf38215dedc.tar.gz tcl-823d13656d0f81807f40c7029fcf4bf38215dedc.tar.bz2 | |
More places where vwait needs to be used instead of update.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/chanio.test | 4 | ||||
| -rw-r--r-- | tests/io.test | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 97d5510..bc6bb1b 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -5731,9 +5731,9 @@ test chan-io-46.1 {Tcl event loop vs multiple interpreters} {testfevent fileeven chan event $f readable {} }] } + set timer [after 10 lappend x timeout] testfevent cmd $script - after 1 ;# We must delay because Windows takes a little time to notice - update + vwait x testfevent cmd {chan close $f} list [testfevent cmd {set x}] [testfevent cmd {info commands after}] } {{f triggered: foo bar} after} diff --git a/tests/io.test b/tests/io.test index a81e394..8c44db9 100644 --- a/tests/io.test +++ b/tests/io.test @@ -6033,10 +6033,10 @@ test io-46.1 {Tcl event loop vs multiple interpreters} {testfevent fileevent} { fileevent $f readable {} }] } + set timer [after 10 lappend x timeout] testfevent cmd $script - after 1 ;# We must delay because Windows takes a little time to notice - update - testfevent cmd {close $f} + vwait x + testfevent cmd {chan close $f} list [testfevent cmd {set x}] [testfevent cmd {info commands after}] } {{f triggered: foo bar} after} test io-46.2 {Tcl event loop vs multiple interpreters} testfevent { |