summaryrefslogtreecommitdiffstats
path: root/tests/ioCmd.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-09-18 19:10:11 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-09-18 19:10:11 (GMT)
commit18492c312190b67e04959f7245dd3821b3222702 (patch)
tree3b3676a336050b24f0a48c9275e2d216368c6f26 /tests/ioCmd.test
parent4e6d7ac04b768be3cca7788d3d97483d809918a0 (diff)
downloadtcl-18492c312190b67e04959f7245dd3821b3222702.zip
tcl-18492c312190b67e04959f7245dd3821b3222702.tar.gz
tcl-18492c312190b67e04959f7245dd3821b3222702.tar.bz2
Revise the tests that confront background flush on close across threads.
Need cleanup code to bring an end to the otherwise endless loop of thread finalization that continually tries to flush before closing, and is continually thwarted by a driver raising EAGAIN. If this dance isn't cleanly terminated, it continues and corrupts any subsequent tests that define a [foo] command.
Diffstat (limited to 'tests/ioCmd.test')
-rw-r--r--tests/ioCmd.test11
1 files changed, 7 insertions, 4 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index f749b46..c46dc26 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.test
@@ -2575,9 +2575,10 @@ test iocmd.tf-24.15 {chan write, EAGAIN means that writing is not allowed at thi
} c]
set res
} -cleanup {
+ proc foo {args} {onfinal; set ::done-24.15 1; return 3}
+ vwait done-24.15
rename foo {}
unset res
- update
} -result {{write rc* ABC} {watch rc* write} {}} \
-constraints {testchannel thread}
@@ -2601,15 +2602,17 @@ test iocmd.tf-24.16 {chan write, note the background flush setup by close due to
} c]
# Replace handler with all-tracking one which doesn't error.
# This will tell us if a write-due-flush is there.
- proc foo {args} { note BG ; track }
+ 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.
- update
+ vwait endbody-24.16
set res
} -cleanup {
+ proc foo {args} {onfinal; set ::done-24.16 1; return 3}
+ vwait done-24.16
rename foo {}
unset res
-} -result {{write rc* ABC} {watch rc* write} {} BG {write rc* ABC} BG {finalize rc*}} \
+} -result {{write rc* ABC} {watch rc* write} {} BG {write rc* ABC}} \
-constraints {testchannel thread}
# --- === *** ###########################