diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-08-20 18:40:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-08-20 18:40:07 (GMT) |
| commit | 12c37823c6a4f23e3d4692d06909143077af8493 (patch) | |
| tree | 7a8341843ccdd779ef9030e38d7b0cfd1350ff33 /tests/io.test | |
| parent | 166fb42c36ba616d9698b30dee6731e6b9edb625 (diff) | |
| download | tcl-12c37823c6a4f23e3d4692d06909143077af8493.zip tcl-12c37823c6a4f23e3d4692d06909143077af8493.tar.gz tcl-12c37823c6a4f23e3d4692d06909143077af8493.tar.bz2 | |
Make test io-36.1.1 more portable.
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 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 |