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

Update tests

Browse source
This commit is contained in:
Henrik Lissner 2018-08-21 03:34:12 +02:00
parent 4618b7afad
commit 24cddafc8a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
core/test/test-autoload-package.el
View file

@ -4,6 +4,7 @@
(describe "core/autoload/packages" (describe "core/autoload/packages"
:var (package-alist :var (package-alist
package-archive-contents package-archive-contents
package-selected-packages
doom-packages doom-packages
quelpa-cache quelpa-cache
quelpa-initialized-p quelpa-initialized-p
@ -16,7 +17,9 @@
(before-all (before-all
(fset 'pkg (fset 'pkg
(lambda (name version &optional reqs) (lambda (name version &optional reqs)
(package-desc-create :name name :version version :reqs reqs))) (package-desc-create
:name name :version version :reqs reqs
:dir (expand-file-name (format "%s/" name) package-user-dir))))
(require 'package) (require 'package)
(require 'quelpa) (require 'quelpa)
(setq doom-packages-dir (expand-file-name "packages/" (file-name-directory load-file-name)) (setq doom-packages-dir (expand-file-name "packages/" (file-name-directory load-file-name))
@ -24,6 +27,7 @@
quelpa-dir (expand-file-name "quelpa" doom-packages-dir) quelpa-dir (expand-file-name "quelpa" doom-packages-dir)
quelpa-initialized-p t quelpa-initialized-p t
doom-core-packages nil) doom-core-packages nil)
(spy-on #'package--user-installed-p :and-call-fake (lambda (_p) t))
(spy-on #'doom-initialize-packages :and-call-fake (lambda (&optional _))) (spy-on #'doom-initialize-packages :and-call-fake (lambda (&optional _)))
(spy-on #'package-refresh-contents :and-call-fake (lambda (&optional _))) (spy-on #'package-refresh-contents :and-call-fake (lambda (&optional _)))
(spy-on #'quelpa-checkout :and-call-fake (spy-on #'quelpa-checkout :and-call-fake
@ -57,7 +61,8 @@
quelpa-cache quelpa-cache
'((doom-quelpa-dummy :fetcher github :repo "hlissner/does-not-exist") '((doom-quelpa-dummy :fetcher github :repo "hlissner/does-not-exist")
(doom-noquelpa-dummy :fetcher github :repo "hlissner/does-not-exist-3") (doom-noquelpa-dummy :fetcher github :repo "hlissner/does-not-exist-3")
(doom-new-quelpa-dummy :fetcher github :repo "hlissner/does-not-exist-2")))) (doom-new-quelpa-dummy :fetcher github :repo "hlissner/does-not-exist-2"))
package-selected-packages (mapcar #'car doom-packages)))
(describe "package-backend" (describe "package-backend"
(it "determines the correct backend of a package" (it "determines the correct backend of a package"

4
core/test/test-core-ui.el
View file

@ -23,12 +23,12 @@
(expect (js-mode) :to-throw 'error))) (expect (js-mode) :to-throw 'error)))
(describe "doom|protect-visible-buffers" (describe "doom|protect-visible-buffer"
:var (kill-buffer-query-functions wconf a b) :var (kill-buffer-query-functions wconf a b)
(before-each (before-each
(setq a (switch-to-buffer (get-buffer-create "a")) (setq a (switch-to-buffer (get-buffer-create "a"))
b (get-buffer-create "b") b (get-buffer-create "b")
kill-buffer-query-functions '(doom|protect-visible-buffers) kill-buffer-query-functions '(doom|protect-visible-buffer)
wconf (current-window-configuration)) wconf (current-window-configuration))
(delete-other-windows)) (delete-other-windows))