#5027 test suite failure on iocmd.tv-24.16

[Larry W. Virden]

sparc solaris 9, sun c compiler, ftp.tcl.tk tcl-trunk.zip file downloaded today - path says Tcl_Source_Code_2012-05-02_065054_cf269b5da3/ .

/opt/SUNWspro/bin/cc -c -g -KPIC -DBUILD_tcl -I"." -I/vol/tclsrcsol/tcl86/tcl-8.6b3-2012-05-02/unix -I/vol/tclsrcsol/tcl86/tcl-8.6b3-2012-05-02/generic -I/vol/tclsrcsol/tcl86/tcl-8.6b3-2012-05-02/libtommath -DPACKAGE_NAME=\"tcl\" -DPACKAGE_TARNAME=\"tcl\" -DPACKAGE_VERSION=\"8.6\" -DPACKAGE_STRING=\"tcl\ 8.6\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_==== iocmd.tf-24.16 chan write, note the background flush setup by close due to the EAGAIN leaving data in buffers. FAILED
==== Contents of test case:

notes [inthread $c {
note [puts -nonewline $c ABC ; flush $c]
close $c
notes
} 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} { 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

---- Result was:
{write rc150 ABC} {watch rc150 write} {}
---- Result should have been (glob matching):
{write rc* ABC} {watch rc* write} {} BG {write rc* ABC}
==== iocmd.tf-24.16 FAILED

[Don Porter]

Dup 3522560