summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-15 16:48:43 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-15 16:48:43 (GMT)
commit267fb4eebd7345f715153cea17de47c2396d31f8 (patch)
treed8e5cb68542025d11bb9160e8ba7388d6b5699a3 /tests
parent47b1f4425678fcc051e9a75f59f6c4cd4f21b176 (diff)
downloadtcl-267fb4eebd7345f715153cea17de47c2396d31f8.zip
tcl-267fb4eebd7345f715153cea17de47c2396d31f8.tar.gz
tcl-267fb4eebd7345f715153cea17de47c2396d31f8.tar.bz2
Portable test to demo bug otherwise seen only on Windows.
Diffstat (limited to 'tests')
-rw-r--r--tests/io.test20
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/io.test b/tests/io.test
index b99c4e9..b82f403 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]