Fix unit test runner

This commit is contained in:
Henrik Lissner 2019-04-24 18:07:17 -04:00
parent eb22177cea
commit 88406bb11a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 13 additions and 13 deletions

View file

@ -15,9 +15,9 @@ command line args following a double dash (each arg should be in the
If neither is available, run all tests in all enabled modules." If neither is available, run all tests in all enabled modules."
;; Core libraries aren't fully loaded in a noninteractive session, so we ;; Core libraries aren't fully loaded in a noninteractive session, so we
;; reload it with `noninteractive' set to nil to force them to. ;; reload it with `noninteractive' set to nil to force them to.
(quiet! (doom-reload-autoloads)) (let* ((noninteractive t)
(let ((doom-modules (doom-modules)) (doom-modules (doom-modules)))
noninteractive) (quiet! (doom-reload-autoloads))
(let ((target-paths (let ((target-paths
;; Convert targets into a list of string paths, pointing to the root ;; Convert targets into a list of string paths, pointing to the root
;; directory of modules ;; directory of modules

View file

@ -433,12 +433,12 @@ module."
(module-path (doom-module-locate-path ,category ',module))) (module-path (doom-module-locate-path ,category ',module)))
(doom-module-set (doom-module-set
,category ',module ,category ',module
,@(let ((plist (doom-module-get category module))) (let ((plist (doom-module-get ,category ',module)))
(when flags ,(when flags
(plist-put plist :flags flags)) `(plist-put plist :flags `,flags))
(unless (plist-member plist :path) (unless (plist-member plist :path)
(plist-put plist :path (doom-module-locate-path category module))) (plist-put plist :path ,(doom-module-locate-path category module)))
plist)) plist))
(if (directory-name-p module-path) (if (directory-name-p module-path)
(condition-case-unless-debug ex (condition-case-unless-debug ex
(let ((doom--current-module ',(cons category module)) (let ((doom--current-module ',(cons category module))

View file

@ -1,13 +1,13 @@
;;; init.test.el -- for automated unit tests -*- lexical-binding: t; -*- ;;; init.test.el -- for automated unit tests -*- lexical-binding: t; -*-
(doom! :feature (doom! :completion
evil
workspaces
:completion
company company
:ui :ui
doom-dashboard doom-dashboard
popup popup
workspaces
:editor
evil
:tools :tools
password-store password-store
:lang :lang