;;; 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
(eval-when-compile (require 'cl))
+(require 'pp)
+
;;; @ test
;;;
(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)