- (riece-install-modules
- (append riece-modules
- '(auto-autoloads custom-load))
- (expand-file-name "riece"
- (expand-file-name "lisp" (car command-line-args-left)))
- (riece-install-just-print-p)))
+ (let ((srcdir (car command-line-args-left)))
+ (setq command-line-args-left (cdr command-line-args-left))
+ (riece-install-modules
+ (append (riece-examine-modules srcdir)
+ '(auto-autoloads custom-load))
+ srcdir
+ (expand-file-name "lisp/riece" (car command-line-args-left))
+ (riece-install-just-print-p))
+ (riece-install-icons
+ riece-icons
+ srcdir
+ (expand-file-name "etc/riece" (car command-line-args-left))
+ (riece-install-just-print-p))
+ (riece-install-scripts
+ riece-scripts
+ srcdir
+ (expand-file-name "etc/riece" (car command-line-args-left))
+ (riece-install-just-print-p))))
+
+(defun riece-test ()
+ (let* ((srcdir (car command-line-args-left))
+ (load-path (cons (expand-file-name "test" srcdir)
+ (cons srcdir (cons nil load-path))))
+ (files (directory-files (expand-file-name "test" srcdir) t
+ "^test-.*\\.el$"))
+ suite)
+ (require 'lunit-report)
+ (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-report suite (nth 1 command-line-args-left))))