diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-08-22 13:44:23 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-08-22 13:44:23 (GMT) |
| commit | 2ad50fb7c02f82eac6d9dc2ca5b4aeec742d38d7 (patch) | |
| tree | 77909ebaf683c36a6784559fc6a711c941cb86e1 /tests | |
| parent | 78ccd5e19e769a8b4736728372c8c8b24f34e384 (diff) | |
| parent | 7b2b44f56169a915474820a5d7ed5dad0016c1c2 (diff) | |
| download | tcl-2ad50fb7c02f82eac6d9dc2ca5b4aeec742d38d7.zip tcl-2ad50fb7c02f82eac6d9dc2ca5b4aeec742d38d7.tar.gz tcl-2ad50fb7c02f82eac6d9dc2ca5b4aeec742d38d7.tar.bz2 | |
merge 8.5; stamp release date
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/io.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/io.test b/tests/io.test index 925f8c6..7698cea 100644 --- a/tests/io.test +++ b/tests/io.test @@ -4924,7 +4924,10 @@ test io-36.1 {Tcl_InputBlocked on nonblocking pipe} {stdio openpipe} { test io-36.1.1 {Tcl_InputBlocked on nonblocking binary pipe} {stdio openpipe} { set f1 [open "|[list [interpreter]]" r+] chan configure $f1 -encoding binary -translation lf -eofchar {} - puts $f1 {puts hello_from_pipe} + puts $f1 { + chan configure stdout -encoding binary -translation lf -eofchar {} + puts hello_from_pipe + } flush $f1 gets $f1 fconfigure $f1 -blocking off -buffering full |