diff options
| author | dgp <dgp@users.sourceforge.net> | 2010-03-24 15:33:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2010-03-24 15:33:14 (GMT) |
| commit | f39f64f06bbce181e06855f40981b19669febdd0 (patch) | |
| tree | 916c3774dcc8cfaed6cbd2a22ca2ff106e8dbb37 /tests/result.test | |
| parent | 188c38659bf0d5e51f7263d592af87cd8c753a17 (diff) | |
| download | tcl-f39f64f06bbce181e06855f40981b19669febdd0.zip tcl-f39f64f06bbce181e06855f40981b19669febdd0.tar.gz tcl-f39f64f06bbce181e06855f40981b19669febdd0.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 | 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 |