* test/lunit-report.el: New file split from lunit.el.

[riece] / lisp / test / lunit.el

diff --git a/lisp/test/lunit.el b/lisp/test/lunit.el
index 4d1108b..f406032 100644 (file)
--- a/lisp/test/lunit.el
+++ b/lisp/test/lunit.el
@@ -1,6 +1,6 @@
 ;;; lunit.el --- simple testing framework for luna
 
-;; Copyright (C) 2000 Daiki Ueno.
+;; Copyright (C) 2000-2004 Daiki Ueno.
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
 ;; Keywords: OOP, XP
@@ -50,6 +50,8 @@
 
 (eval-when-compile (require 'cl))
 
+(require 'pp)
+
 ;;; @ test
 ;;;
 
@@ -119,16 +121,16 @@
      (lunit-test-result-set-failures-internal
       result
       (nconc (lunit-test-result-failures-internal result)
-            (list (cons case (cdr failure)))))
+            (list (cons case (cdr error)))))
      (lunit-test-result-notify
-      result 'lunit-test-listener-failure case failure))
+      result 'lunit-test-listener-failure case (cdr error)))
     (lunit-error
      (lunit-test-result-set-errors-internal
       result
       (nconc (lunit-test-result-errors-internal result)
             (list (cons case (cdr error)))))
      (lunit-test-result-notify
-      result 'lunit-test-listener-error case error)))
+      result 'lunit-test-listener-error case (cdr error))))
   (lunit-test-result-set-assert-count-internal
    result
    (+ (lunit-test-result-assert-count-internal result)