From 04b65e987994d0b91bdfaf9075ceb18ed21348ff Mon Sep 17 00:00:00 2001
From: Daiki Ueno <ueno@unixuser.org>
Date: Sat, 27 Nov 2004 00:27:55 +0000
Subject: [PATCH] * test/lunit.el: Update copyright year.
 (lunit-test-result-run): Fixed the argument of lunit-test-listener-error
 listener.

---
 lisp/ChangeLog     |  6 ++++++
 lisp/test/lunit.el | 22 ++++++++++++++++++++--
 2 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 32bfc7c..636fa6c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-11-27  Daiki Ueno  <ueno@unixuser.org>
+
+	* test/lunit.el: Update copyright year.
+	(lunit-test-result-run): Fixed the argument of
+	lunit-test-listener-error listener.
+
 2004-11-26  Daiki Ueno  <ueno@unixuser.org>
 
 	* COMPILE (riece-test): Require 'lunit after when ./test is added
diff --git a/lisp/test/lunit.el b/lisp/test/lunit.el
index 89b4c6a..d166740 100644
--- 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
@@ -128,7 +128,7 @@
       (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)
@@ -329,6 +329,24 @@ signal an error if not."
 
 ")))))))
 
+(defun batch-lunit ()
+  (let ((load-path (cons (expand-file-name (car command-line-args-left))
+			 (cons nil load-path)))
+	(files (directory-files (expand-file-name (car command-line-args-left))
+				t "^test-.*\\.el$"))
+        suite)
+    (setq suite (lunit-make-test-suite))
+    (while files
+      (when (file-regular-p (car files))
+	(load-file (car files))
+	(lunit-test-suite-add-test
+	 suite
+	 (lunit-make-test-suite-from-class
+	  (intern (file-name-sans-extension
+		   (file-name-nondirectory (car files)))))))
+      (setq files (cdr files)))
+    (lunit suite)))
+
 (provide 'lunit)
 
 ;;; lunit.el ends here
-- 
2.25.1