diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-08-12 17:49:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-08-12 17:49:42 (GMT) |
| commit | 1db16b915a2fc6e315586502121d1ab7c9b39a59 (patch) | |
| tree | 81f8b8cdafc1a4bb23d3aa3b881232ad18a03e83 | |
| parent | 2c66fc643c1e662526ad4cd59b0b1836b171a35c (diff) | |
| download | tcl-1db16b915a2fc6e315586502121d1ab7c9b39a59.zip tcl-1db16b915a2fc6e315586502121d1ab7c9b39a59.tar.gz tcl-1db16b915a2fc6e315586502121d1ab7c9b39a59.tar.bz2 | |
Adjustments to failing tests to account for changed [chan postevent].
| -rw-r--r-- | tests/ioCmd.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 5a76d48..c706e50 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -1949,26 +1949,26 @@ test iocmd-31.6 {chan postevent, posted events do happen} -match glob -body { set c [chan create {r w} foo] note [fileevent $c readable {note TOCK}] set stop [after 10000 {note TIMEOUT}] - after 1000 {note [chan postevent $c r]} + after 1000 {chan postevent $c r} vwait ::res catch {after cancel $stop} close $c rename foo {} set res -} -result {{watch rc* read} {} TOCK {} {watch rc* {}}} +} -result {{watch rc* read} {} TOCK {watch rc* {}}} test iocmd-31.7 {chan postevent, posted events do happen} -match glob -body { set res {} 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}] - after 1000 {note [chan postevent $c w]} + after 1000 {chan postevent $c w} vwait ::res catch {after cancel $stop} close $c rename foo {} set res -} -result {{watch rc* write} {} TOCK {} {watch rc* {}}} +} -result {{watch rc* write} {} TOCK {watch rc* {}}} test iocmd-31.8 {chan postevent after close throws error} -match glob -setup { proc foo {args} {oninit; onfinal; track; return} proc dummy args { return } |