diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-08-22 13:48:50 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-08-22 13:48:50 (GMT) |
| commit | 13e336e4cd548751e6a994c94920f3aca29c64e3 (patch) | |
| tree | 3463f73047f7b5a5451b8b7e40a7dc606997f8bf /tests | |
| parent | 72fee4f1c79d6a43ba65c8581ad27d8a438595c5 (diff) | |
| parent | aa8f4d27acd788726a349645ef8e955ea4d40483 (diff) | |
| download | tcl-13e336e4cd548751e6a994c94920f3aca29c64e3.zip tcl-13e336e4cd548751e6a994c94920f3aca29c64e3.tar.gz tcl-13e336e4cd548751e6a994c94920f3aca29c64e3.tar.bz2 | |
merge 8.5; fix notifier mask bug and Tcl_Read performance regression
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 cef3e81..639691a 100644 --- a/tests/io.test +++ b/tests/io.test @@ -4950,7 +4950,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 |