* 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 d166740..f406032 100644 (file)
--- a/lisp/test/lunit.el
+++ b/lisp/test/lunit.el
@@ -50,6 +50,8 @@
 
 (eval-when-compile (require 'cl))
 
+(require 'pp)
+
 ;;; @ test
 ;;;
 
@@ -329,24 +331,6 @@ 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