From ec2312f54a9b7174ec63edea2d8966183bbe1b76 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 25 May 2004 18:14:33 +0000
Subject: io-61.1: initialize res

---
 tests/io.test | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/io.test b/tests/io.test
index 2f97129..b8af0f3 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: io.test,v 1.52 2004/05/25 18:06:26 dgp Exp $
+# RCS: @(#) $Id: io.test,v 1.53 2004/05/25 18:14:33 dgp Exp $
 
 if {[catch {package require tcltest 2}]} {
     puts stderr "Skipping tests in [info script].  tcltest 2 required."
@@ -7103,6 +7103,7 @@ set datafile [file join $::tcltest::testsDirectory eofchar.data]
 test io-61.1 {Reset eof state after changing the eof char} {
     set f [open $datafile r]
     fconfigure $f -eofchar =
+    set res {}
     lappend res [read $f; tell $f]
     fconfigure $f -eofchar {}
     lappend res [read $f 1]
-- 
cgit v0.12