From 9f39fc4286082e4e7a7b52711f7b37c8c6fddf7c Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 29 Jan 2015 18:34:50 +0000
Subject: Test for bug [08872796bc].

---
 tests/io.test | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/tests/io.test b/tests/io.test
index d533957..e4dc522 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -8419,6 +8419,25 @@ test io-73.3 {[5adc350683] [gets] after EOF} -setup {
     removeFile io-73.3
 } -result {1 1 {more data} 0 {} 1}
 
+test io-73.4 {[5adc350683] [read] after EOF} -setup {
+    set fn [makeFile {} io-73.4]
+    set rfd [open $fn r]
+    set wfd [open $fn a]
+    chan configure $wfd -buffering line
+    read $rfd
+} -body {
+    set result [eof $rfd]
+    puts $wfd "more data"
+    lappend result [eof $rfd]
+    lappend result [read $rfd]
+    lappend result [eof $rfd]
+} -cleanup {
+    close $wfd
+    close $rfd
+    removeFile io-73.4
+} -result {1 1 {more data
+} 1}
+
 # ### ### ### ######### ######### #########
 
 # cleanup
-- 
cgit v0.12