summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-08-20 18:40:07 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-08-20 18:40:07 (GMT)
commit12c37823c6a4f23e3d4692d06909143077af8493 (patch)
tree7a8341843ccdd779ef9030e38d7b0cfd1350ff33 /tests
parent166fb42c36ba616d9698b30dee6731e6b9edb625 (diff)
downloadtcl-12c37823c6a4f23e3d4692d06909143077af8493.zip
tcl-12c37823c6a4f23e3d4692d06909143077af8493.tar.gz
tcl-12c37823c6a4f23e3d4692d06909143077af8493.tar.bz2
Make test io-36.1.1 more portable.
Diffstat (limited to 'tests')
-rw-r--r--tests/io.test5
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