diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2012-04-30 21:53:55 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2012-04-30 21:53:55 (GMT) |
| commit | 4b2ebc3c6da8c4c97d1304f5f1871ee0d2a2afc2 (patch) | |
| tree | edf35ef8ee4e6b59ee8b25dd880661a1c292689d /tests/ioCmd.test | |
| parent | a0475c5cf6d86e396657f10115fa8e5ed1410788 (diff) | |
| download | tcl-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.test | 3 |
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 |