summaryrefslogtreecommitdiffstats
path: root/tests/io.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-02-19 03:45:17 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-02-19 03:45:17 (GMT)
commite9a5cb0bbfec8877ccb5b56d39e6100ba9c5e42d (patch)
tree21190847395a1841eacaae866ba17a2a32277456 /tests/io.test
parent03c5b98228950023fde73077aa1b3e401e373d1c (diff)
downloadtcl-e9a5cb0bbfec8877ccb5b56d39e6100ba9c5e42d.zip
tcl-e9a5cb0bbfec8877ccb5b56d39e6100ba9c5e42d.tar.gz
tcl-e9a5cb0bbfec8877ccb5b56d39e6100ba9c5e42d.tar.bz2
Next coverage test to expose another refactoring error.
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 4df44a3..8c066ca 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -6772,6 +6772,20 @@ test io-52.14 {coverage of -translation crlf} {
close $out
file size $path(test2)
} 29
+test io-52.15 {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\r
+ close $out
+ set in [open $path(test1)]
+ chan configure $in -buffersize 8 -translation crlf
+ set out [open $path(test2) w]
+ fcopy $in $out
+ close $in
+ close $out
+ file size $path(test2)
+} 8
test io-53.1 {CopyData} {fcopy} {
file delete $path(test1)