-(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)))
-