summaryrefslogtreecommitdiffstats
path: root/tests/io.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-15 18:38:22 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-15 18:38:22 (GMT)
commit564d1813daa4ebd962bcafa76e4ce48659d16a26 (patch)
tree21506cd85e30ee31523b8bcf944d3fa9d2e03dce /tests/io.test
parent6ac36ed52bd548be97ae7baa3022e822f6a1bdce (diff)
downloadtcl-564d1813daa4ebd962bcafa76e4ce48659d16a26.zip
tcl-564d1813daa4ebd962bcafa76e4ce48659d16a26.tar.gz
tcl-564d1813daa4ebd962bcafa76e4ce48659d16a26.tar.bz2
Branch to demo bug introduced in the parent commit.
Diffstat (limited to 'tests/io.test')
-rw-r--r--tests/io.test20
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/io.test b/tests/io.test
index c325809..b28566b 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -3960,6 +3960,26 @@ test io-32.11 {Tcl_Read from a pipe} {stdio openpipe} {
} {{hello
} {hello
}}
+test io-32.11.1 {Tcl_Read from a pipe} {stdio openpipe} {
+ file delete $path(pipe)
+ set f1 [open $path(pipe) w]
+ puts $f1 {chan configure stdout -translation crlf}
+ puts $f1 {puts [gets stdin]}
+ puts $f1 {puts [gets stdin]}
+ close $f1
+ set f1 [open "|[list [interpreter] $path(pipe)]" r+]
+ puts $f1 hello
+ flush $f1
+ set x ""
+ lappend x [read $f1 6]
+ puts $f1 hello
+ flush $f1
+ lappend x [read $f1]
+ close $f1
+ set x
+} {{hello
+} {hello
+}}
test io-32.12 {Tcl_Read, -nonewline} {
file delete $path(test1)
set f1 [open $path(test1) w]