diff options
| author | dgp <dgp@users.sourceforge.net> | 2010-03-24 15:31:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2010-03-24 15:31:47 (GMT) |
| commit | 1adcd44891a492ada9ee28225979deeec480398c (patch) | |
| tree | e35f7fbdcbeefd2d46ec87a195405c4187d5d740 /tests/result.test | |
| parent | b199de25aaa631078acc7cd5e5f562d7c46485f3 (diff) | |
| download | tcl-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.test | 6 |
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 |