summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@noemail.net>2014-03-10 17:58:32 (GMT)
committerdgp <dgp@noemail.net>2014-03-10 17:58:32 (GMT)
commit71b3f490941150bb2d14192638e6144a625d9661 (patch)
tree691ed08eb28757af01a9633bc250136dc942d260 /tests
parentb65101046f8a8c75ad58396f4b8bc8447b5e7268 (diff)
downloadtcl-71b3f490941150bb2d14192638e6144a625d9661.zip
tcl-71b3f490941150bb2d14192638e6144a625d9661.tar.gz
tcl-71b3f490941150bb2d14192638e6144a625d9661.tar.bz2
Bring CRLF translation in parallel with others.
FossilOrigin-Name: 1e9ea0b5324050d2377ffe7a07dec2577c556369
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]