diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | tests/result.test | 16 |
2 files changed, 21 insertions, 0 deletions
@@ -1,3 +1,8 @@ +2007-06-05 Don Porter <dgp@users.sourceforge.net> + + * tests/result.test (result-6.2): Add test for Bug 1649062 so + that 8.4 and 8.5 both test the same outcome and we verify compatibility. + 2007-05-30 Don Porter <dgp@users.sourceforge.net> * README: Bump version number to 8.4.16 diff --git a/tests/result.test b/tests/result.test index ec26b64..cf46eb9 100644 --- a/tests/result.test +++ b/tests/result.test @@ -109,6 +109,22 @@ test result-5.4 {Tcl_SetErrorCode - two args, list quoting} testseterrorcode { set errorCode } {{a b} c} +test result-6.2 {Bug 1649062} -setup { + proc foo {} { + if {[catch { + return -code error -errorinfo custom -errorcode CUSTOM foo + } err]} { + return [list $err $::errorCode $::errorInfo] + } + } + set ::errorInfo {} + set ::errorCode {} +} -body { + foo +} -cleanup { + rename foo {} +} -result {foo {} {}} + # cleanup ::tcltest::cleanupTests return |