diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-04-30 15:31:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-04-30 15:31:42 (GMT) |
| commit | 76caae45f6017bfb0bb12a45f978e3d24b0dcfa5 (patch) | |
| tree | 7178732d83003dff66dc871c941f5f5bbbf24d0a | |
| parent | ad9a6bc3ee2c6ad54714dc0da96ba7cfbc0b8556 (diff) | |
| parent | d83d89d362d25757894f30114918b084c6b14305 (diff) | |
| download | tcl-76caae45f6017bfb0bb12a45f978e3d24b0dcfa5.zip tcl-76caae45f6017bfb0bb12a45f978e3d24b0dcfa5.tar.gz tcl-76caae45f6017bfb0bb12a45f978e3d24b0dcfa5.tar.bz2 | |
test portability
| -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 dc98001..6b6ad6d 100644 --- a/tests/io.test +++ b/tests/io.test @@ -7409,6 +7409,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 @@ -7417,7 +7418,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 |