From 59e09f0a80436b8167963accf1399c73eaacb3dc Mon Sep 17 00:00:00 2001
From: dgp <dgp@noemail.net>
Date: Tue, 5 Jun 2007 17:54:55 +0000
Subject:         * 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.

FossilOrigin-Name: 0c1b05bd4026251d26193612878b4f1dfbf8d069
---
 ChangeLog         |  5 +++++
 tests/result.test | 16 ++++++++++++++++
 2 files changed, 21 insertions(+)

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
-- 
cgit v0.12