summaryrefslogtreecommitdiffstats
path: root/tests/io.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-02-28 18:36:00 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-02-28 18:36:00 (GMT)
commitbb1b4fcb06f80fddfd136a9bd14bf64808f45971 (patch)
tree58937f9835e7fb30021138c34575966660138657 /tests/io.test
parentaad7393c9adb8f82f2594929954960b91d027032 (diff)
downloadtcl-bb1b4fcb06f80fddfd136a9bd14bf64808f45971.zip
tcl-bb1b4fcb06f80fddfd136a9bd14bf64808f45971.tar.gz
tcl-bb1b4fcb06f80fddfd136a9bd14bf64808f45971.tar.bz2
another coverage test.
Diffstat (limited to 'tests/io.test')
-rw-r--r--tests/io.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/io.test b/tests/io.test
index 0941e02..c325809 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -4772,6 +4772,21 @@ test io-35.19 {Tcl_Eof, eof char in middle, cr write, crlf read} {
close $f
list $c $l $e [scan [string index $in end] %c]
} {17 8 1 13}
+test io-35.20 {Tcl_Eof, eof char in middle, cr write, crlf read} {
+ file delete $path(test1)
+ set f [open $path(test1) w]
+ fconfigure $f -translation cr -eofchar {}
+ set i [format \n%cqrsuvw 26]
+ puts $f $i
+ close $f
+ set c [file size $path(test1)]
+ set f [open $path(test1) r]
+ fconfigure $f -translation crlf -eofchar \x1a
+ set l [string length [set in [read $f]]]
+ set e [eof $f]
+ close $f
+ list $c $l $e [scan [string index $in end] %c]
+} {9 1 1 13}
# Test Tcl_InputBlocked