diff options
author | dgp <dgp@users.sourceforge.net> | 2015-04-30 15:31:17 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2015-04-30 15:31:17 (GMT) |
commit | 1754a9a311a61dc8c9af0d29768142e2381ae197 (patch) | |
tree | f9507be67fca6069fb3507c409baf6865f541621 /tests | |
parent | d3e04b3a7681476889b2c9a75deed8c65556f178 (diff) | |
download | tcl-1754a9a311a61dc8c9af0d29768142e2381ae197.zip tcl-1754a9a311a61dc8c9af0d29768142e2381ae197.tar.gz tcl-1754a9a311a61dc8c9af0d29768142e2381ae197.tar.bz2 |
Test portability.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/io.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/io.test b/tests/io.test index c3e63cc..50c5808 100644 --- a/tests/io.test +++ b/tests/io.test @@ -7389,6 +7389,7 @@ test io-53.4.1 {Bug 894da183c8} {stdio fcopy} { puts $f1 { puts ready set f [open io-53.4.1 w] + chan configure $f -translation lf fcopy stdin $f -command { set x } vwait x close $f @@ -7397,7 +7398,7 @@ test io-53.4.1 {Bug 894da183c8} {stdio fcopy} { close $f1 set f1 [open "|[list [interpreter] $path(pipe)]" r+] set result [gets $f1] - fconfigure $f1 -blocking 0 -buffersize 125000 + fconfigure $f1 -blocking 0 -buffersize 125000 -translation lf puts $f1 $big fconfigure $f1 -blocking 1 close $f1 |