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)
commit16df5aebc94b36b821a6c731481e226c7688ab3a (patch)
tree13a42d7647ddc27c229ac4a03f30cdd9c28e4282 /tests/chan.test
parent8a282bbf9ee208530b7824cb872a1041e778001c (diff)
downloadtcl-16df5aebc94b36b821a6c731481e226c7688ab3a.zip
tcl-16df5aebc94b36b821a6c731481e226c7688ab3a.tar.gz
tcl-16df5aebc94b36b821a6c731481e226c7688ab3a.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