diff options
| author | dgp <dgp@noemail.net> | 2010-03-24 15:31:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2010-03-24 15:31:46 (GMT) |
| commit | 44a7ad001f0d7ca7c8c94e98247c1eea44a98c02 (patch) | |
| tree | e35f7fbdcbeefd2d46ec87a195405c4187d5d740 /tests/result.test | |
| parent | e2c4820ff2a892c66f865d6741d33f46f4cc8b77 (diff) | |
| download | tcl-44a7ad001f0d7ca7c8c94e98247c1eea44a98c02.zip tcl-44a7ad001f0d7ca7c8c94e98247c1eea44a98c02.tar.gz tcl-44a7ad001f0d7ca7c8c94e98247c1eea44a98c02.tar.bz2 | |
* generic/tclResult.c: [Bug 2383005] Revise [return -errorcode] so
* tests/result.test: that it rejects illegal non-list values.
FossilOrigin-Name: dbac86a6e832b59cf95da7344c7c4cbdfcd9bdd9
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 |