summaryrefslogtreecommitdiffstats
path: root/tests/chan.test
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2012-12-09 11:52:04 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2012-12-09 11:52:04 (GMT)
commitff12195b2b7d3b9d0f8f4441bd3ec0c991ba742b (patch)
tree13a42d7647ddc27c229ac4a03f30cdd9c28e4282 /tests/chan.test
parent5ab4d052c526754eca52cbec0aea41c6a61d7fb6 (diff)
downloadtcl-ff12195b2b7d3b9d0f8f4441bd3ec0c991ba742b.zip
tcl-ff12195b2b7d3b9d0f8f4441bd3ec0c991ba742b.tar.gz
tcl-ff12195b2b7d3b9d0f8f4441bd3ec0c991ba742b.tar.bz2
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]).
Diffstat (limited to 'tests/chan.test')
-rw-r--r--tests/chan.test2
1 files changed, 1 insertions, 1 deletions
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