emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor test launcher

Browse source
This commit is contained in:
Henrik Lissner 2019-09-03 01:47:32 -04:00
parent c614beea0b
commit 338b72b898
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
core/cli/test.el
View file

@ -30,24 +30,25 @@
((file-exists-p target) ((file-exists-p target)
(push target files))))) (push target files)))))
(with-temp-buffer (with-temp-buffer
(setenv "DOOMDIR" (concat doom-core-dir "test/"))
(setenv "DOOMLOCALDIR" (concat doom-local-dir "test/"))
(print! (start "Bootstrapping test environment, if necessary...")) (print! (start "Bootstrapping test environment, if necessary..."))
(if (zerop (if (zerop
(call-process (call-process
(doom--emacs-binary) (doom--emacs-binary)
nil t nil "--batch" nil t nil "--batch"
"-l" (concat doom-core-dir "core.el")
"--eval" (prin1-to-string "--eval" (prin1-to-string
`(progn (doom-initialize 'force) `(progn
(doom-initialize-modules) (setq doom-emacs-dir ,doom-emacs-dir
(require 'core-cli) doom-local-dir ,(concat doom-local-dir "test/")
(unless (package-installed-p 'buttercup) doom-private-dir ,(concat doom-core-dir "test/"))
(package-refresh-contents) (require 'core ,(locate-library "core"))
(package-install 'buttercup)) (doom-initialize 'force)
(doom-reload-core-autoloads 'force) (doom-initialize-modules)
(when (doom-packages-install 'auto-accept) (unless (package-installed-p 'buttercup)
(doom-reload-package-autoloads 'force)))))) (package-refresh-contents)
(package-install 'buttercup))
(doom-reload-core-autoloads 'force)
(when (doom-packages-install 'auto-accept)
(doom-reload-package-autoloads 'force))))))
(message "%s" (buffer-string)) (message "%s" (buffer-string))
(message "%s" (buffer-string)) (message "%s" (buffer-string))
(error "Failed to bootstrap unit tests"))) (error "Failed to bootstrap unit tests")))