summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-06-05 17:54:55 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-06-05 17:54:55 (GMT)
commitd83ddf016648e67cdf9280265c2f62cdf1d87294 (patch)
tree528cbd19a6573d9e94241fcd408390c4fb964fbe
parent47eb01dd6c11df908cd26c814d3cf6cb80abd4dd (diff)
downloadtcl-d83ddf016648e67cdf9280265c2f62cdf1d87294.zip
tcl-d83ddf016648e67cdf9280265c2f62cdf1d87294.tar.gz
tcl-d83ddf016648e67cdf9280265c2f62cdf1d87294.tar.bz2
* 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.
-rw-r--r--ChangeLog5
-rw-r--r--tests/result.test16
2 files changed, 21 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index a387cfb..6c66acd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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