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 | 67a898d6e777d135ab218d8a50fe701644f179a6 (patch) | |
| tree | edf35ef8ee4e6b59ee8b25dd880661a1c292689d /tests/ioCmd.test | |
| parent | ccc7189d02db07692cedcc82141038304536e5f5 (diff) | |
| download | tcl-67a898d6e777d135ab218d8a50fe701644f179a6.zip tcl-67a898d6e777d135ab218d8a50fe701644f179a6.tar.gz tcl-67a898d6e777d135ab218d8a50fe701644f179a6.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 |