diff options
author | ferrieux <ferrieux@users.sourceforge.net> | 2012-12-09 11:52:04 (GMT) |
---|---|---|
committer | ferrieux <ferrieux@users.sourceforge.net> | 2012-12-09 11:52:04 (GMT) |
commit | 16df5aebc94b36b821a6c731481e226c7688ab3a (patch) | |
tree | 13a42d7647ddc27c229ac4a03f30cdd9c28e4282 /tests/chan.test | |
parent | 8a282bbf9ee208530b7824cb872a1041e778001c (diff) | |
download | tcl-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.test | 2 |
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 |