summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-03-10 17:58:32 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-03-10 17:58:32 (GMT)
commit091096d315755aa89f28bd063b426e16a4c16e51 (patch)
tree691ed08eb28757af01a9633bc250136dc942d260 /tests
parent62268820f73d797eebfc2a66ed3fa856c27daeb7 (diff)
downloadtcl-091096d315755aa89f28bd063b426e16a4c16e51.zip
tcl-091096d315755aa89f28bd063b426e16a4c16e51.tar.gz
tcl-091096d315755aa89f28bd063b426e16a4c16e51.tar.bz2
Bring CRLF translation in parallel with others.
Diffstat (limited to 'tests')
-rw-r--r--tests/io.test14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/io.test b/tests/io.test
index c325809..e3fff32 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -6858,6 +6858,20 @@ test io-52.14 {coverage of -translation crlf} {
close $out
file size $path(test2)
} 29
+test io-52.14.1 {coverage of -translation crlf} {
+ file delete $path(test1) $path(test2)
+ set out [open $path(test1) wb]
+ chan configure $out -translation lf
+ puts -nonewline $out abcdefg\rhijklmn\nopqrstu\r\nvwxyz
+ close $out
+ set in [open $path(test1)]
+ chan configure $in -buffersize 8 -translation crlf
+ set out [open $path(test2) w]
+ fcopy $in $out -size 2
+ close $in
+ close $out
+ file size $path(test2)
+} 2
test io-52.15 {coverage of -translation crlf} {
file delete $path(test1) $path(test2)
set out [open $path(test1) wb]