From: ueno <ueno>
Date: Fri, 10 Nov 2000 07:04:12 +0000 (+0000)
Subject: * lunit.el (lunit-test-case-run): Return error object as it is.
X-Git-Tag: deisui-1_14_0-2000-12-14~24
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b0476c15089390b062e19b3ebdab3cedc3d5ad10;p=elisp%2Fflim.git

* lunit.el (lunit-test-case-run): Return error object as it is.
---

diff --git a/lunit.el b/lunit.el
index 01052e8..97a197e 100644
--- a/lunit.el
+++ b/lunit.el
@@ -207,7 +207,7 @@ NAME is name of the method to be tested."
 	  (lunit-failure
 	   (signal (car error)(cdr error)))
 	  (error
-	   (signal 'lunit-error (cdr error)))))
+	   (signal 'lunit-error error))))
     (lunit-test-case-teardown case)))
 
 ;;; @ test suite