Clean up unwanted eofchar side-effect of chan-4.6 leading to a spurious "'" at end of chan.test under certain conditions (see [Bug 3389289] and [Bug 3389251]).

2 files changed, 6 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index c1a3ff7..aeb6a62 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-09  Alexandre Ferrieux  <ferrieux@users.sourceforge.net>
+	* tests/chan.test: Clean up unwanted eofchar side-effect of
+	chan-4.6 leading to a spurious "'" at end of chan.test under
+	certain conditions (see [Bug 3389289] and [Bug 3389251]).
+
 2012-12-08  Alexandre Ferrieux  <ferrieux@users.sourceforge.net>
 	* generic/tclIO.c: Fix busyloop at exit under TCL_FINALIZE_ON_EXIT
 	when there  are unflushed nonblocking channels.  Thanks Miguel for
diff --git a/tests/chan.test b/tests/chan.test
index da44ffd..d8390e2 100644
--- a/tests/chan.test
+++ b/tests/chan.test
@@ -61,7 +61,7 @@ test chan-4.5 {chan command: check valid inValue, invalid outValue} -body {
 } -returnCodes error -match glob -result {bad value for -eofchar:*}
 test chan-4.6 {chan command: check no inValue, valid outValue} -body {
     chan configure stdout -eofchar [list {} \x27]
-} -returnCodes ok -result {}
+} -returnCodes ok -result {} -cleanup {chan configure stdout -eofchar [list {} {}]}
 
 test chan-5.1 {chan command: copy subcommand} -body {
     chan copy foo