summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-08-12 17:49:42 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-08-12 17:49:42 (GMT)
commit1db16b915a2fc6e315586502121d1ab7c9b39a59 (patch)
tree81f8b8cdafc1a4bb23d3aa3b881232ad18a03e83
parent2c66fc643c1e662526ad4cd59b0b1836b171a35c (diff)
downloadtcl-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.test8
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 }