summaryrefslogtreecommitdiffstats
path: root/tests/ioCmd.test
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2012-04-30 21:53:55 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2012-04-30 21:53:55 (GMT)
commit4b2ebc3c6da8c4c97d1304f5f1871ee0d2a2afc2 (patch)
treeedf35ef8ee4e6b59ee8b25dd880661a1c292689d /tests/ioCmd.test
parenta0475c5cf6d86e396657f10115fa8e5ed1410788 (diff)
downloadtcl-4b2ebc3c6da8c4c97d1304f5f1871ee0d2a2afc2.zip
tcl-4b2ebc3c6da8c4c97d1304f5f1871ee0d2a2afc2.tar.gz
tcl-4b2ebc3c6da8c4c97d1304f5f1871ee0d2a2afc2.tar.bz2
Tame deadlocks in broken refchan tests [Bug 3522560]
Diffstat (limited to 'tests/ioCmd.test')
-rw-r--r--tests/ioCmd.test3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index 4c08229..6b1da73 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.test
@@ -2575,6 +2575,7 @@ test iocmd.tf-24.15 {chan write, EAGAIN means that writing is not allowed at thi
set res
} -cleanup {
proc foo {args} {onfinal; set ::done-24.15 1; return 3}
+ after 1000 {set ::done-24.15 2}
vwait done-24.15
rename foo {}
unset res
@@ -2603,10 +2604,12 @@ test iocmd.tf-24.16 {chan write, note the background flush setup by close due to
proc foo {args} { onfinal; note BG ; track ; set ::endbody-24.16 1}
# Flush (sic!) the event-queue to capture the write from a
# BG-flush.
+ after 1000 {set ::endbody-24.16 2}
vwait endbody-24.16
set res
} -cleanup {
proc foo {args} {onfinal; set ::done-24.16 1; return 3}
+ after 1000 {set ::done-24.16 2}
vwait done-24.16
rename foo {}
unset res