Posted to tcl by jdc at Tue Jul 24 09:37:48 GMT 2012view raw
- ==== io-29.33b TIP#398, no implicit flush of nonblocking on exit FAILED
- ==== Contents of test case:
- set f [open $path(script) w]
- puts $f {
- fconfigure stdout -blocking 0
- puts -nonewline stdout [string repeat A 655360]
- flush stdout
- }
- close $f
- set f [open $path(script2) w]
- puts $f {after 2000}
- close $f
- set t1 [clock milliseconds]
- set ff [open "|[list [interpreter] $path(script2)]" w]
- catch {unset ::env(TCL_FLUSH_NONBLOCKING_ON_EXIT)}
- exec [interpreter] $path(script) >@ $ff
- set t2 [clock milliseconds]
- close $ff
- expr {($t2-$t1)/2000 ? $t2-$t1 : 0}
- ---- Result was:
- 2033
- ---- Result should have been (exact matching):
- 0
- ==== io-29.33b FAILED