summaryrefslogtreecommitdiffstats
path: root/tests/io.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-02-18 18:35:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-02-18 18:35:19 (GMT)
commit997ad71bccf25cf78178d99b5bd94103ef365e4d (patch)
tree04fdca2501701fdd9b08b9b0250b8fda63b27758 /tests/io.test
parente3b160fb968cfca1ba3255292e5583bd0bf3e37d (diff)
downloadtcl-997ad71bccf25cf78178d99b5bd94103ef365e4d.zip
tcl-997ad71bccf25cf78178d99b5bd94103ef365e4d.tar.gz
tcl-997ad71bccf25cf78178d99b5bd94103ef365e4d.tar.bz2
coverage test for -translation cr
Diffstat (limited to 'tests/io.test')
-rw-r--r--tests/io.test14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/io.test b/tests/io.test
index e08c57a..0c2944b 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -6744,6 +6744,20 @@ test io-52.12 {coverage of -translation auto} {
close $out
file size $path(test2)
} 29
+test io-52.13 {coverage of -translation cr} {
+ 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 cr
+ set out [open $path(test2) w]
+ fcopy $in $out
+ close $in
+ close $out
+ file size $path(test2)
+} 30
test io-53.1 {CopyData} {fcopy} {
file delete $path(test1)