Update doom//run-tests for new doom!

This commit is contained in:
Henrik Lissner 2018-01-29 18:41:55 -05:00
parent e33e2b9c63
commit e0f6fde7c1
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -12,8 +12,7 @@ If neither is available, run all tests in all enabled modules."
(let (targets) (let (targets)
;; ensure DOOM is initialized ;; ensure DOOM is initialized
(let (noninteractive) (let (noninteractive)
(load (expand-file-name "core/core.el" user-emacs-directory) nil t) (load (expand-file-name "core/core.el" user-emacs-directory) nil t))
(doom-initialize-modules nil))
;; collect targets ;; collect targets
(cond ((and argv (equal (car argv) "--")) (cond ((and argv (equal (car argv) "--"))
(cl-loop for arg in (cdr argv) (cl-loop for arg in (cdr argv)
@ -37,8 +36,8 @@ If neither is available, run all tests in all enabled modules."
(error "Expected a list of cons, got: %s" modules))) (error "Expected a list of cons, got: %s" modules)))
(t (t
(let ((noninteractive t) (let (noninteractive)
doom-modules) (clrhash doom-modules)
(load (expand-file-name "init.test.el" user-emacs-directory) nil t) (load (expand-file-name "init.test.el" user-emacs-directory) nil t)
(setq modules (doom-module-pairs) (setq modules (doom-module-pairs)
targets (list (expand-file-name "test/" doom-core-dir)))))) targets (list (expand-file-name "test/" doom-core-dir))))))