diff options
| author | dgp <dgp@noemail.net> | 2010-03-24 15:33:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2010-03-24 15:33:14 (GMT) |
| commit | 9041c334e6d79b6a212be8dcf82c46fb840cb824 (patch) | |
| tree | 916c3774dcc8cfaed6cbd2a22ca2ff106e8dbb37 /tests/result.test | |
| parent | c808e73e96a84f902889aa49905b0f6b61168952 (diff) | |
| download | tcl-9041c334e6d79b6a212be8dcf82c46fb840cb824.zip tcl-9041c334e6d79b6a212be8dcf82c46fb840cb824.tar.gz tcl-9041c334e6d79b6a212be8dcf82c46fb840cb824.tar.bz2 | |
* generic/tclResult.c: [Bug 2383005] Revise [return -errorcode] so
* tests/result.test: that it rejects illegal non-list values.
FossilOrigin-Name: 7cdddeb2828c3f51badeb27c6a18737537856702
Diffstat (limited to 'tests/result.test')
| -rw-r--r-- | tests/result.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/result.test b/tests/result.test index 95407b9..b2db8ec 100644 --- a/tests/result.test +++ b/tests/result.test @@ -131,7 +131,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 |