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 | 2b50c1447fc0d201d7afada548a16fc6cf6645ae (patch) | |
| tree | 3463f73047f7b5a5451b8b7e40a7dc606997f8bf /tests/io.test | |
| parent | 08a0a8c4a05e9a2915604e90ec54b27426677f9b (diff) | |
| parent | 7b2b44f56169a915474820a5d7ed5dad0016c1c2 (diff) | |
| download | tcl-2b50c1447fc0d201d7afada548a16fc6cf6645ae.zip tcl-2b50c1447fc0d201d7afada548a16fc6cf6645ae.tar.gz tcl-2b50c1447fc0d201d7afada548a16fc6cf6645ae.tar.bz2 | |
merge 8.5; fix notifier mask bug and Tcl_Read performance regression
Diffstat (limited to 'tests/io.test')
| -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 |