summaryrefslogtreecommitdiffstats
path: root/tests/result.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2010-03-24 15:31:47 (GMT)
committerdgp <dgp@users.sourceforge.net>2010-03-24 15:31:47 (GMT)
commit1adcd44891a492ada9ee28225979deeec480398c (patch)
treee35f7fbdcbeefd2d46ec87a195405c4187d5d740 /tests/result.test
parentb199de25aaa631078acc7cd5e5f562d7c46485f3 (diff)
downloadtcl-1adcd44891a492ada9ee28225979deeec480398c.zip
tcl-1adcd44891a492ada9ee28225979deeec480398c.tar.gz
tcl-1adcd44891a492ada9ee28225979deeec480398c.tar.bz2
* generic/tclResult.c: [Bug 2383005] Revise [return -errorcode] so
* tests/result.test: that it rejects illegal non-list values.
Diffstat (limited to 'tests/result.test')
-rw-r--r--tests/result.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/result.test b/tests/result.test
index cefcaed..8573217 100644
--- a/tests/result.test
+++ b/tests/result.test
@@ -132,8 +132,10 @@ test result-6.2 {Bug 1649062} -setup {
} -cleanup {
rename foo {}
} -result {foo {} {}}
-
-
+test result-6.3 {Bug 2383005} {
+ catch {return -code error -errorcode {{}a} eek} m
+ set m
+} {bad -errorcode value: expected a list but got "{}a"}
# cleanup
cleanupTests
return