Move unit tests from ert to buttercup
Easier to organize and write. Now I can hopefully strive for better coverage!
This commit is contained in:
Henrik Lissner
parent
98d2f1de3f
commit
eaca8c58fa
41 changed files with 1371 additions and 1101 deletions
|
|
@ -1,169 +0,0 @@
|
|||
;;; core/autoload/test.el -*- lexical-binding: t; no-byte-compile: t; -*-
|
||||
|
||||
(defun doom//run-tests (&optional modules)
|
||||
"Run all loaded tests, specified by MODULES (a list of module cons cells) or
|
||||
command line args following a double dash (each arg should be in the
|
||||
'module/submodule' format).
|
||||
|
||||
If neither is available, run all tests in all enabled modules."
|
||||
(interactive)
|
||||
(require 'core-packages)
|
||||
(doom//reload-autoloads)
|
||||
(let (noninteractive)
|
||||
;; Core libraries aren't fully loaded in a noninteractive session, so we
|
||||
;; reload it with `noninteractive' set to nil to force them to.
|
||||
(doom-initialize t)
|
||||
(doom-initialize-modules t))
|
||||
(condition-case-unless-debug ex
|
||||
(let ((target-paths
|
||||
;; Convert targets (either from MODULES or `argv') into a list of
|
||||
;; string paths, pointing to the root directory of modules
|
||||
(cond ((stringp (car modules)) ; command line
|
||||
(save-match-data
|
||||
(cl-loop for arg in modules
|
||||
if (string= arg ":core") collect doom-core-dir
|
||||
else if (string-match-p "/" arg)
|
||||
nconc (cl-loop for dir in doom-modules-dirs
|
||||
collect (expand-file-name arg dir))
|
||||
else
|
||||
nconc (cl-loop for dir in doom-modules-dirs
|
||||
for path = (expand-file-name arg dir)
|
||||
if (file-directory-p path)
|
||||
nconc
|
||||
(cl-remove-if-not
|
||||
#'file-directory-p
|
||||
(directory-files path t "^[^.]" t)))
|
||||
finally do (setq argv nil))))
|
||||
|
||||
(modules ; cons-cells given to MODULES
|
||||
(cl-loop for (module . submodule) in modules
|
||||
if (doom-module-locate-path module submodule)
|
||||
collect it))
|
||||
|
||||
((append (list doom-core-dir)
|
||||
(doom-module-load-path))))))
|
||||
;; Load all the unit test files...
|
||||
(dolist (path target-paths)
|
||||
(let ((test-path (expand-file-name "test/" path)))
|
||||
(when (file-directory-p test-path)
|
||||
(dolist (test-file (reverse (doom-files-in test-path :match "\\.el$" :full t)))
|
||||
(load test-file nil :noerror)))))
|
||||
;; ... then run them
|
||||
(switch-to-buffer (get-buffer-create "*blank*"))
|
||||
(if noninteractive
|
||||
(ert-run-tests-batch-and-exit)
|
||||
(call-interactively #'ert-run-tests-interactively)))
|
||||
('error
|
||||
(lwarn 'doom-test :error
|
||||
"%s -> %s"
|
||||
(car ex) (error-message-string ex)))))
|
||||
|
||||
|
||||
;; --- Test helpers -----------------------
|
||||
|
||||
(defmacro def-test! (name &rest body)
|
||||
"Define a namespaced ERT test."
|
||||
(declare (indent defun) (doc-string 2))
|
||||
(let (plist)
|
||||
(while (keywordp (car body))
|
||||
(push (pop body) plist)
|
||||
(push (pop body) plist))
|
||||
(setq plist (reverse plist))
|
||||
(when-let* ((modes (doom-enlist (plist-get plist :minor-mode))))
|
||||
(dolist (mode modes)
|
||||
(setq body `((with-minor-mode! ,mode ,@body)))))
|
||||
(when-let* ((before (plist-get plist :before)))
|
||||
(setq body `(,@before ,@body)))
|
||||
(when-let* ((after (plist-get plist :after)))
|
||||
(setq body `(,@body @after)))
|
||||
`(ert-deftest
|
||||
,(intern (format "%s::%s"
|
||||
(if (file-in-directory-p load-file-name doom-core-dir)
|
||||
(format "core/%s" (file-name-base load-file-name))
|
||||
(replace-regexp-in-string "^.*/modules/\\([^/]+\\)/\\([^/]+\\)/test/" "\\1/\\2:"
|
||||
(file-name-sans-extension load-file-name)))
|
||||
name))
|
||||
()
|
||||
,(if (plist-get plist :skip)
|
||||
`(ert-skip ,(plist-get plist :skip))
|
||||
`(with-temp-buffer
|
||||
(save-mark-and-excursion
|
||||
(save-window-excursion
|
||||
,@body)))))))
|
||||
|
||||
(defmacro should-buffer! (initial expected &rest body)
|
||||
"Test that a buffer with INITIAL text, run BODY, then test it against EXPECTED.
|
||||
|
||||
INITIAL will recognize cursor markers in the form {[0-9]}. A {0} marker marks
|
||||
where the cursor should be after setup. Otherwise, the cursor will be placed at
|
||||
`point-min'.
|
||||
|
||||
EXPECTED will recognize one (optional) cursor marker: {|}, this is the
|
||||
'expected' location of the cursor after BODY is finished, and will be tested
|
||||
against."
|
||||
(declare (indent 2))
|
||||
`(with-temp-buffer
|
||||
(cl-loop for line in ',initial
|
||||
do (insert line "\n"))
|
||||
(goto-char (point-min))
|
||||
(let (marker-list)
|
||||
(save-excursion
|
||||
(while (re-search-forward "{\\([0-9]\\)}" nil t)
|
||||
(push (cons (match-string 1)
|
||||
(set-marker (make-marker) (match-beginning 0)))
|
||||
marker-list)
|
||||
(replace-match "" t t))
|
||||
(if (not marker-list)
|
||||
(goto-char (point-min))
|
||||
(sort marker-list
|
||||
(lambda (m1 m2) (< (marker-position m1)
|
||||
(marker-position m2))))
|
||||
(when (equal (caar marker-list) "0")
|
||||
(goto-char! 0)))
|
||||
,@body
|
||||
(let ((result-text (buffer-string))
|
||||
(point (point))
|
||||
expected-text)
|
||||
(with-temp-buffer
|
||||
(cl-loop for line in ',expected
|
||||
do (insert line "\n"))
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(when (re-search-forward "{|}" nil t)
|
||||
(replace-match "" t t)
|
||||
(should (equal (point) point))))
|
||||
(setq expected-text (buffer-string))
|
||||
(should (equal expected-text result-text))))))))
|
||||
|
||||
(defmacro goto-char! (index)
|
||||
"Meant to be used with `should-buffer!'. Will move the cursor to one of the
|
||||
cursor markers. e.g. Go to marker {2} with (goto-char! 2)."
|
||||
`(goto-char (point! ,index)))
|
||||
|
||||
(defmacro point! (index)
|
||||
"Meant to be used with `should-buffer!'. Returns the position of a cursor
|
||||
marker. e.g. {2} can be retrieved with (point! 2)."
|
||||
`(cdr (assoc ,(cond ((numberp index) (number-to-string index))
|
||||
((symbolp index) (symbol-name index))
|
||||
((stringp index) index))
|
||||
marker-list)))
|
||||
|
||||
(defmacro with-minor-mode! (mode &rest body)
|
||||
"Activate a minor mode while in BODY, deactivating it after."
|
||||
(declare (indent defun))
|
||||
`(progn (,mode +1)
|
||||
,@body
|
||||
(,mode -1)))
|
||||
|
||||
(defmacro let-advice! (binds &rest body)
|
||||
"Temporarily bind advice in BINDS while in BODY.
|
||||
|
||||
e.g. (old-fn :before advice-fn)
|
||||
(old-fn :around advice-fn)"
|
||||
(declare (indent defun))
|
||||
`(progn
|
||||
,@(cl-loop for (target type advice) in binds
|
||||
collect `(advice-add #',target ,type #',advice))
|
||||
,@body
|
||||
,@(cl-loop for (target type advice) in binds
|
||||
collect `(advice-remove #',target #',advice))))
|
||||
|
|
@ -172,7 +172,7 @@ respectively."
|
|||
|
||||
(def-dispatcher! test
|
||||
"Run Doom unit tests."
|
||||
(load! "autoload/test")
|
||||
(require 'core-tests)
|
||||
(doom//run-tests args))
|
||||
|
||||
(def-dispatcher! info
|
||||
|
|
|
|||
68
core/core-tests.el
Normal file
68
core/core-tests.el
Normal file
|
|
@ -0,0 +1,68 @@
|
|||
;;; core/core-tests.el -*- lexical-binding: t; -*-
|
||||
|
||||
(defun doom//run-tests (&optional modules)
|
||||
"Run all loaded tests, specified by MODULES (a list of module cons cells) or
|
||||
command line args following a double dash (each arg should be in the
|
||||
'module/submodule' format).
|
||||
|
||||
If neither is available, run all tests in all enabled modules."
|
||||
(interactive)
|
||||
(let (noninteractive)
|
||||
;; Core libraries aren't fully loaded in a noninteractive session, so we
|
||||
;; reload it with `noninteractive' set to nil to force them to.
|
||||
(quiet! (doom//reload-autoloads))
|
||||
(doom-initialize t))
|
||||
(let ((target-paths
|
||||
;; Convert targets into a list of string paths, pointing to the root
|
||||
;; directory of modules
|
||||
(cond ((stringp (car modules)) ; command line
|
||||
(save-match-data
|
||||
(cl-loop for arg in modules
|
||||
if (string= arg ":core") collect doom-core-dir
|
||||
else if (string-match-p "/" arg)
|
||||
nconc (mapcar (apply-partially #'expand-file-name arg)
|
||||
doom-modules-dirs)
|
||||
else
|
||||
nconc (cl-loop for dir in doom-modules-dirs
|
||||
for path = (expand-file-name arg dir)
|
||||
if (file-directory-p path)
|
||||
nconc
|
||||
(doom-files-in
|
||||
path :type 'dirs :depth 1 :full t))
|
||||
finally do (setq argv nil))))
|
||||
|
||||
(modules ; cons-cells given to MODULES
|
||||
(cl-loop for (module . submodule) in modules
|
||||
if (doom-module-locate-path module submodule)
|
||||
collect it))
|
||||
|
||||
((append (list doom-core-dir)
|
||||
(doom-module-load-path))))))
|
||||
;; Load all the unit test files...
|
||||
(require 'buttercup)
|
||||
(mapc (lambda (file) (load file :noerror (not doom-debug-mode)))
|
||||
(doom-files-in (mapcar (apply-partially #'expand-file-name "test/")
|
||||
target-paths)
|
||||
:match "\\.el$" :full t))
|
||||
;; ... then run them
|
||||
(when doom-debug-mode
|
||||
(setq buttercup-stack-frame-style 'pretty))
|
||||
(let ((split-width-threshold 0)
|
||||
(split-height-threshold 0)
|
||||
(window-min-width 0)
|
||||
(window-min-height 0))
|
||||
(buttercup-run))))
|
||||
|
||||
|
||||
;;
|
||||
(defmacro def-test! (_name &rest _body))
|
||||
|
||||
(defmacro insert! (&rest text)
|
||||
"Insert TEXT in buffer, then move cursor to last {0} marker."
|
||||
`(progn
|
||||
(insert ,@text)
|
||||
(when (search-backward "{0}" nil t)
|
||||
(replace-match "" t t))))
|
||||
|
||||
(provide 'core-tests)
|
||||
;;; core-tests.el ends here
|
||||
|
|
@ -39,3 +39,6 @@
|
|||
|
||||
;; autoload/debug.el
|
||||
(package! esup)
|
||||
|
||||
;; autoload/test.el
|
||||
(package! buttercup)
|
||||
|
|
|
|||
|
|
@ -1,130 +0,0 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/autoload-buffers.el
|
||||
|
||||
(defmacro with-temp-buffers!! (buffer-args &rest body)
|
||||
(declare (indent defun))
|
||||
(let (buffers)
|
||||
(dolist (bsym buffer-args)
|
||||
(push `(,bsym (get-buffer-create ,(symbol-name bsym)))
|
||||
buffers))
|
||||
`(save-window-excursion
|
||||
(cl-flet ((buffer-list
|
||||
(lambda ()
|
||||
(cl-remove-if-not #'buffer-live-p (list ,@(reverse (mapcar #'car buffers)))))))
|
||||
(let* ((split-width-threshold 0)
|
||||
(window-min-width 0)
|
||||
persp-mode
|
||||
,@buffers)
|
||||
(delete-other-windows)
|
||||
,@body
|
||||
(let (kill-buffer-query-functions kill-buffer-hook)
|
||||
(mapc #'kill-buffer (buffer-list))))))))
|
||||
|
||||
;;
|
||||
(def-test! get-buffers
|
||||
(with-temp-buffers!! (a b c)
|
||||
(should (cl-every #'buffer-live-p (buffer-list)))
|
||||
(should (equal (buffer-list) (list a b c)))
|
||||
(dolist (buf (list (cons a doom-emacs-dir)
|
||||
(cons b doom-emacs-dir)
|
||||
(cons c "/tmp/")))
|
||||
(with-current-buffer (car buf)
|
||||
(setq-local default-directory (cdr buf))))
|
||||
(projectile-mode +1)
|
||||
(with-current-buffer a
|
||||
;; should produce all buffers
|
||||
(let ((buffers (doom-buffer-list)))
|
||||
(should (cl-every (lambda (x) (memq x buffers)) (list a b c))))
|
||||
;; should produce only project buffers
|
||||
(let ((buffers (doom-project-buffer-list)))
|
||||
(should (cl-every (lambda (x) (memq x buffers)) (list a b)))
|
||||
(should-not (memq c buffers))))
|
||||
;; If no project is available, just get all buffers
|
||||
(with-current-buffer c
|
||||
(let ((buffers (doom-project-buffer-list)))
|
||||
(should (cl-every (lambda (x) (memq x buffers)) (list a b c)))))
|
||||
(projectile-mode -1)))
|
||||
|
||||
(def-test! real-buffers
|
||||
(let (doom-real-buffer-functions)
|
||||
(with-temp-buffers!! (a b c d)
|
||||
(with-current-buffer a
|
||||
(setq-local buffer-file-name "x"))
|
||||
(with-current-buffer b
|
||||
(setq-local doom-real-buffer-p t))
|
||||
(with-current-buffer c
|
||||
(rename-buffer "*C*"))
|
||||
(should (doom-real-buffer-p a))
|
||||
(should (doom-real-buffer-p b))
|
||||
(should-not (doom-real-buffer-p c))
|
||||
(should-not (doom-real-buffer-p d))
|
||||
(let ((buffers (doom-real-buffer-list)))
|
||||
(should (= (length buffers) 2))
|
||||
(should (cl-every (lambda (x) (memq x buffers)) (list a b)))
|
||||
(should (cl-notany (lambda (x) (memq x buffers)) (list c d)))))))
|
||||
|
||||
;; `doom-visible-windows'
|
||||
;; `doom-visible-buffers'
|
||||
;; `doom-buried-buffers'
|
||||
(def-test! visible-buffers-and-windows
|
||||
(with-temp-buffers!! (a b c d)
|
||||
(switch-to-buffer a)
|
||||
(should (eq (current-buffer) a))
|
||||
(should (eq (selected-window) (get-buffer-window a)))
|
||||
(split-window nil 1)
|
||||
(switch-to-buffer b)
|
||||
(should (eq (current-buffer) b))
|
||||
(should (eq (selected-window) (get-buffer-window b)))
|
||||
(should (cl-intersection (list a b) (doom-visible-buffers)))
|
||||
(should (cl-intersection (list c d) (doom-buried-buffers)))
|
||||
(should (cl-intersection (mapcar #'get-buffer-window (list a b))
|
||||
(doom-visible-windows)))))
|
||||
|
||||
;; `doom-matching-buffers'
|
||||
(def-test! matching-buffers
|
||||
(with-temp-buffers!! (a b c)
|
||||
(let ((buffers (doom-matching-buffers "^[ac]$")))
|
||||
(should (= 2 (length buffers)))
|
||||
(should (cl-every #'bufferp buffers))
|
||||
(should (cl-every (lambda (x) (memq x buffers)) (list a c)))
|
||||
(should (equal buffers (doom-matching-buffers "^[ac]$"))))))
|
||||
|
||||
;; `doom-buffers-in-mode'
|
||||
(def-test! buffers-in-mode
|
||||
(with-temp-buffers!! (a b c d e)
|
||||
(dolist (buf (list a b))
|
||||
(with-current-buffer buf
|
||||
(delay-mode-hooks (emacs-lisp-mode))))
|
||||
(dolist (buf (list c d e))
|
||||
(with-current-buffer buf
|
||||
(text-mode)))
|
||||
(let ((el-buffers (doom-buffers-in-mode 'emacs-lisp-mode))
|
||||
(txt-buffers (doom-buffers-in-mode 'text-mode)))
|
||||
(should (cl-every #'buffer-live-p (append el-buffers txt-buffers)))
|
||||
(should (= 2 (length el-buffers)))
|
||||
(should (= 3 (length txt-buffers))))))
|
||||
|
||||
;; `doom-fallback-buffer'
|
||||
(def-test! fallback-buffer
|
||||
(let ((fallback (doom-fallback-buffer)))
|
||||
(should (buffer-live-p fallback))
|
||||
(should (equal (buffer-name fallback) doom-fallback-buffer-name))))
|
||||
|
||||
;; `doom-kill-buffer-and-windows'
|
||||
(def-test! kill-buffer-and-windows
|
||||
(with-temp-buffers!! (a b)
|
||||
(switch-to-buffer a) (split-window-horizontally)
|
||||
(switch-to-buffer b) (split-window-horizontally)
|
||||
(switch-to-buffer a)
|
||||
|
||||
(should (= (length (doom-visible-windows)) 3))
|
||||
(should (= (length (doom-buffer-list)) 2))
|
||||
|
||||
(doom-kill-buffer-and-windows a)
|
||||
(should-not (buffer-live-p a))
|
||||
(should (= (length (doom-visible-windows)) 1))))
|
||||
|
||||
;; TODO doom/kill-all-buffers
|
||||
;; TODO doom/kill-other-buffers
|
||||
;; TODO doom/kill-matching-buffers
|
||||
;; TODO doom/cleanup-session
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/autoload-help.el
|
||||
|
||||
(def-test! what-face
|
||||
(insert (propertize "Hello " 'face 'font-lock-keyword-face))
|
||||
(insert "world")
|
||||
|
||||
(should (equal (doom/what-face (point-min)) '((font-lock-keyword-face) ())))
|
||||
(should-not (doom/what-face (point-max))))
|
||||
|
||||
(def-test! what-face-overlays
|
||||
(insert "Hello world")
|
||||
(let ((ov (make-overlay 1 6)))
|
||||
(overlay-put ov 'face 'font-lock-keyword-face))
|
||||
|
||||
(should (equal (doom/what-face (point-min)) '(() (font-lock-keyword-face))))
|
||||
(should-not (doom/what-face (point-max))))
|
||||
|
|
@ -1,41 +0,0 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/autoload-message.el
|
||||
|
||||
;; ansi messages
|
||||
(def-test! ansi-format
|
||||
(let ((noninteractive t))
|
||||
(should (equal (format! "Hello %s" "World")
|
||||
"Hello World"))
|
||||
(should (equal (format! (red "Hello %s" "World"))
|
||||
"[31mHello World[0m"))
|
||||
(should (equal (format! (green "Hello %s" "World"))
|
||||
(format "\e[%dm%s\e[0m"
|
||||
(cadr (assq 'green doom-message-fg))
|
||||
"Hello World")))
|
||||
(should (equal (format! (on-red "Hello %s" "World"))
|
||||
(format "\e[%dm%s\e[0m"
|
||||
(cadr (assq 'on-red doom-message-bg))
|
||||
"Hello World")))
|
||||
(should (equal (format! (bold "Hello %s" "World"))
|
||||
(format "\e[%dm%s\e[0m"
|
||||
(cadr (assq 'bold doom-message-fx))
|
||||
"Hello World")))))
|
||||
|
||||
(def-test! ansi-format-nested
|
||||
(let ((noninteractive t))
|
||||
(should (equal (format! (bold (red "Hello %s" "World")))
|
||||
(format "\e[%dm%s\e[0m" 1
|
||||
(format "\e[%dm%s\e[0m" 31 "Hello World"))))
|
||||
(should (equal (format! (on-red (bold "Hello %s" "World")))
|
||||
(format "\e[%dm%s\e[0m" 41
|
||||
(format "\e[%dm%s\e[0m" 1 "Hello World"))))
|
||||
(should (equal (format! (dark (white "Hello %s" "World")))
|
||||
(format "\e[%dm%s\e[0m" 2
|
||||
(format "\e[%dm%s\e[0m" 37 "Hello World"))))))
|
||||
|
||||
(def-test! ansi-format-apply
|
||||
(let ((noninteractive t))
|
||||
(should (equal (format! (color 'red "Hello %s" "World"))
|
||||
(format! (red "Hello %s" "World"))))
|
||||
(should (equal (format! (color (if nil 'red 'blue) "Hello %s" "World"))
|
||||
(format! (blue "Hello %s" "World"))))))
|
||||
|
|
@ -1,72 +0,0 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/autoload-package.el
|
||||
|
||||
(require 'package)
|
||||
(require 'quelpa)
|
||||
|
||||
(defun -pkg (name version &optional reqs)
|
||||
(package-desc-create :name name :version version :reqs reqs))
|
||||
|
||||
(defmacro with-packages!! (packages package-descs &rest body)
|
||||
`(let* ((doom-packages-dir ,(expand-file-name "packages/" (file-name-directory load-file-name)))
|
||||
(package-user-dir ,(expand-file-name "elpa" doom-packages-dir))
|
||||
(quelpa-dir ,(expand-file-name "quelpa" doom-packages-dir)))
|
||||
;; (make-directory doom-packages-dir t)
|
||||
(let ((doom-packages ,packages)
|
||||
(package-alist ,package-descs)
|
||||
doom-core-packages)
|
||||
(cl-letf (((symbol-function 'doom-initialize-packages) (lambda (&rest _))))
|
||||
,@body))
|
||||
;; (delete-directory doom-packages-dir t)
|
||||
))
|
||||
|
||||
|
||||
;;
|
||||
;; Tests
|
||||
;;
|
||||
|
||||
(def-test! backend-detection
|
||||
(let ((package-alist `((doom-dummy ,(-pkg 'doom-dummy '(20160405 1234)))))
|
||||
(quelpa-cache '((doom-quelpa-dummy :fetcher github :repo "hlissner/does-not-exist")))
|
||||
(quelpa-initialized-p t))
|
||||
(should (eq (doom-package-backend 'doom-dummy) 'elpa))
|
||||
(should (eq (doom-package-backend 'doom-quelpa-dummy) 'quelpa))
|
||||
(should (eq (doom-package-backend 'org) 'emacs))))
|
||||
|
||||
(def-test! elpa-outdated-detection
|
||||
(let* ((package-alist
|
||||
`((doom-dummy ,(-pkg 'doom-dummy '(20160405 1234)))))
|
||||
(package-archive-contents
|
||||
`((doom-dummy ,(-pkg 'doom-dummy '(20170405 1234))))))
|
||||
(cl-letf (((symbol-function 'package-refresh-contents) (lambda (&rest _))))
|
||||
(should (equal (doom-package-outdated-p 'doom-dummy)
|
||||
'(doom-dummy (20160405 1234) (20170405 1234)))))))
|
||||
|
||||
;; TODO quelpa-outdated-detection
|
||||
|
||||
(def-test! get-packages
|
||||
(let ((quelpa-initialized-p t))
|
||||
(with-packages!!
|
||||
'((doom-dummy))
|
||||
'((doom-dummy nil)
|
||||
(doom-dummy-unwanted nil)
|
||||
(doom-dummy-dep nil))
|
||||
(should (equal (doom-get-packages) '((doom-dummy)))))))
|
||||
|
||||
(def-test! orphaned-packages
|
||||
"Test `doom-get-orphaned-packages', which gets a list of packages that are
|
||||
no longer enabled or depended on."
|
||||
(with-packages!!
|
||||
'((doom-dummy))
|
||||
`((doom-dummy ,(-pkg 'doom-dummy '(20160405 1234) '((doom-dummy-dep (1 0)))))
|
||||
(doom-dummy-unwanted ,(-pkg 'doom-dummy-unwanted '(20160601 1234)))
|
||||
(doom-dummy-dep ,(-pkg 'doom-dummy-dep '(20160301 1234))))
|
||||
(should (equal (doom-get-orphaned-packages) '(doom-dummy-unwanted)))))
|
||||
|
||||
(def-test! missing-packages
|
||||
"Test `doom-get-missing-packages, which gets a list of enabled packages that
|
||||
aren't installed."
|
||||
(with-packages!!
|
||||
'((doom-dummy) (doom-dummy-installed))
|
||||
`((doom-dummy-installed ,(-pkg 'doom-dummy-installed '(20160405 1234))))
|
||||
(should (equal (doom-get-missing-packages) '((doom-dummy))))))
|
||||
|
|
@ -1,116 +0,0 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/core-lib.el
|
||||
|
||||
;; --- Helpers ----------------------------
|
||||
|
||||
;; `doom--resolve-path-forms'
|
||||
(def-test! resolve-path-forms
|
||||
(should
|
||||
(equal (doom--resolve-path-forms '(and "fileA" "fileB"))
|
||||
'(and (file-exists-p (expand-file-name "fileA" nil))
|
||||
(file-exists-p (expand-file-name "fileB" nil))))))
|
||||
|
||||
;; `doom--resolve-hook-forms'
|
||||
(def-test! resolve-hook-forms
|
||||
(should (equal (doom--resolve-hook-forms '(js2-mode haskell-mode))
|
||||
'(js2-mode-hook haskell-mode-hook)))
|
||||
(should (equal (doom--resolve-hook-forms '(quote (js2-mode-hook haskell-mode-hook)))
|
||||
'(js2-mode-hook haskell-mode-hook))))
|
||||
|
||||
;; `doom-unquote'
|
||||
(def-test! unquote
|
||||
(should (equal (doom-unquote '(quote (a b c))) '(a b c)))
|
||||
;; nested
|
||||
(should (equal (doom-unquote '(quote (quote (a b c)))) '(a b c)))
|
||||
;; sub-quote
|
||||
(should (equal (doom-unquote '(quote (a (quote b) c))) '(a (quote b) c)))
|
||||
;; function
|
||||
(should (equal (doom-unquote '(function a)) 'a)))
|
||||
|
||||
;; `doom-enlist'
|
||||
(def-test! enlist
|
||||
(should (equal (doom-enlist 'a) '(a)))
|
||||
(should (equal (doom-enlist '(a)) '(a))))
|
||||
|
||||
|
||||
;; --- Macros -----------------------------
|
||||
|
||||
;; `add-hook!'
|
||||
(def-test! add-one-to-one-hook
|
||||
(let ((hooks '(old-hook)))
|
||||
(add-hook! 'hooks 'a-hook)
|
||||
(should (equal hooks '(a-hook old-hook)))))
|
||||
|
||||
(def-test! add-many-to-one-hook
|
||||
(let ((hooks '(hook-x)))
|
||||
(add-hook! 'hooks '(hook-a hook-b hook-c))
|
||||
(should (equal hooks '(hook-a hook-b hook-c hook-x)))))
|
||||
|
||||
(def-test! add-one-to-many-hooks
|
||||
(let (hooks-a hooks-b hooks-c)
|
||||
(add-hook! '(hooks-a hooks-b hooks-c) 'a-hook)
|
||||
(should (equal hooks-a '(a-hook)))
|
||||
(should (equal hooks-b '(a-hook)))
|
||||
(should (equal hooks-c '(a-hook)))))
|
||||
|
||||
(def-test! add-many-to-many-hooks
|
||||
(let (hooks-a hooks-b hooks-c)
|
||||
(add-hook! '(hooks-a hooks-b hooks-c) '(hook-a hook-b hook-c))
|
||||
(should (equal hooks-a '(hook-a hook-b hook-c)))
|
||||
(should (equal hooks-b '(hook-a hook-b hook-c)))
|
||||
(should (equal hooks-c '(hook-a hook-b hook-c)))))
|
||||
|
||||
(def-test! add-non-literal-hooks
|
||||
(let (some-mode-hook)
|
||||
(add-hook! some-mode 'a-hook)
|
||||
(should (equal some-mode-hook '(a-hook)))))
|
||||
|
||||
;; `remove-hook!'
|
||||
(def-test! remove-hooks
|
||||
(let ((hooks-a '(hook-c hook-b hook-a))
|
||||
(hooks-b '(hook-c hook-b hook-a))
|
||||
(hooks-c '(hook-c hook-b hook-a)))
|
||||
(remove-hook! '(hooks-a hooks-b hooks-c) '(hook-a hook-b hook-c))
|
||||
(should (null hooks-a))
|
||||
(should (null hooks-b))
|
||||
(should (null hooks-c))))
|
||||
|
||||
(def-test! remove-hook-forms
|
||||
(let (hooks)
|
||||
(add-hook! 'hooks (message "Hello world"))
|
||||
(should hooks)
|
||||
(remove-hook! 'hooks (message "Hello world"))
|
||||
(should (null hooks))))
|
||||
|
||||
;; `add-transient-hook!'
|
||||
(def-test! transient-hooks
|
||||
(let (hooks value)
|
||||
(add-transient-hook! 'hooks (setq value t))
|
||||
(run-hooks 'hooks)
|
||||
(should (eq value t))
|
||||
(should (null hooks))))
|
||||
|
||||
(def-test! transient-function
|
||||
(let (value)
|
||||
(add-transient-hook! #'ignore (setq value (not value)))
|
||||
(ignore t)
|
||||
(should (eq value t))
|
||||
;; repeat to ensure it was only run once
|
||||
(ignore t)
|
||||
(should (eq value t))))
|
||||
|
||||
|
||||
;; TODO `associate!'
|
||||
|
||||
|
||||
;; --- Settings ---------------------------
|
||||
|
||||
(def-test! set
|
||||
(eval-and-compile
|
||||
(def-setting! :-test-setting (x) `(setq result ,x))
|
||||
(should (fboundp 'doom--set:-test-setting))
|
||||
(let ((inhibit-message t)
|
||||
result)
|
||||
(set! :-test-setting t)
|
||||
(should result)
|
||||
(set! :non-existant-setting (error "This shouldn't trigger")))))
|
||||
|
|
@ -1,47 +0,0 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; ../core/test/core-projects.el
|
||||
|
||||
(require 'projectile)
|
||||
|
||||
;;
|
||||
;; `doom-project-p'
|
||||
(def-test! project-p
|
||||
:minor-mode projectile-mode
|
||||
(let ((buffer-file-name (expand-file-name "init.el" doom-emacs-dir))
|
||||
(default-directory doom-emacs-dir))
|
||||
(should (doom-project-p)))
|
||||
(let ((buffer-file-name (expand-file-name "test" "~"))
|
||||
(default-directory (expand-file-name "~")))
|
||||
(should-not (doom-project-p))))
|
||||
|
||||
;; `doom-project-root'
|
||||
(def-test! project-root
|
||||
:minor-mode projectile-mode
|
||||
;; Should resolve to project root
|
||||
(let ((buffer-file-name (expand-file-name "core.el" doom-core-dir))
|
||||
(default-directory doom-core-dir))
|
||||
(should (equal (doom-project-root) doom-emacs-dir)))
|
||||
;; Should resolve to `default-directory' if not a project
|
||||
(let ((buffer-file-name (expand-file-name "test" "~"))
|
||||
(default-directory (expand-file-name "~")))
|
||||
(should (equal (doom-project-root) default-directory))))
|
||||
|
||||
;; `doom-project-expand'
|
||||
(def-test! project-expand
|
||||
:minor-mode projectile-mode
|
||||
(let ((default-directory doom-core-dir))
|
||||
(should (equal (doom-project-expand "init.el")
|
||||
(expand-file-name "init.el" (doom-project-root))))))
|
||||
|
||||
;; `project-file-exists-p!'
|
||||
(def-test! project-has!
|
||||
:minor-mode projectile-mode
|
||||
(let ((default-directory doom-core-dir))
|
||||
;; Resolve from project root
|
||||
(should (project-file-exists-p! "init.el"))
|
||||
;; Chained file checks
|
||||
(should (project-file-exists-p! (and "init.el" "LICENSE")))
|
||||
(should (project-file-exists-p! (or "init.el" "does-not-exist")))
|
||||
(should (project-file-exists-p! (and "init.el" (or "LICENSE" "does-not-exist"))))
|
||||
;; Should resolve relative paths from `default-directory'
|
||||
(should (project-file-exists-p! (and "core/core.el" "./init.el")))))
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; ../core/test/core-ui.el
|
||||
|
||||
(defmacro with-temp-windows!! (&rest body)
|
||||
(declare (indent defun))
|
||||
`(cl-flet ((split-window (symbol-function #'split-window-horizontally)))
|
||||
(delete-other-windows)
|
||||
(let ((a (get-buffer-create "a"))
|
||||
(b (get-buffer-create "b"))
|
||||
(split-width-threshold 0)
|
||||
(window-min-width 0))
|
||||
,@body)))
|
||||
|
||||
;;
|
||||
(def-test! set-mode-name
|
||||
(let ((after-change-major-mode-hook '(doom|set-mode-name))
|
||||
(doom-major-mode-names '((text-mode . "abc")
|
||||
(lisp-mode . (lambda () "xyz"))
|
||||
(js-mode . t))))
|
||||
(text-mode)
|
||||
(should (equal mode-name "abc"))
|
||||
(lisp-mode)
|
||||
(should (equal mode-name "xyz"))
|
||||
(should-error (js-mode))))
|
||||
|
||||
(def-test! protect-visible-buffers
|
||||
(with-temp-windows!!
|
||||
(let ((kill-buffer-query-functions '(doom|protect-visible-buffers)))
|
||||
(switch-to-buffer a) (split-window)
|
||||
(switch-to-buffer b) (split-window)
|
||||
(switch-to-buffer a)
|
||||
(should-not (kill-buffer))
|
||||
(select-window (get-buffer-window b))
|
||||
(should (kill-buffer)))))
|
||||
114
core/test/test-autoload-buffers.el
Normal file
114
core/test/test-autoload-buffers.el
Normal file
|
|
@ -0,0 +1,114 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/test-autoload-buffers.el
|
||||
|
||||
(load! "autoload/buffers" doom-core-dir)
|
||||
|
||||
;;
|
||||
(describe "core/autoload/buffers"
|
||||
:var (a b c d)
|
||||
(before-all
|
||||
(spy-on 'buffer-list :and-call-fake
|
||||
(lambda (&optional _)
|
||||
(cl-remove-if-not #'buffer-live-p (list a b c d)))))
|
||||
(before-each
|
||||
(delete-other-windows)
|
||||
(setq a (switch-to-buffer (get-buffer-create "a"))
|
||||
b (get-buffer-create "b")
|
||||
c (get-buffer-create "c")
|
||||
d (get-buffer-create "d")))
|
||||
(after-each
|
||||
(kill-buffer a)
|
||||
(kill-buffer b)
|
||||
(kill-buffer c)
|
||||
(kill-buffer d))
|
||||
|
||||
(describe "buffer-list"
|
||||
(it "should only see four buffers"
|
||||
(expect (doom-buffer-list) :to-have-same-items-as (list a b c d))))
|
||||
|
||||
(describe "project-buffer-list"
|
||||
:var (projectile-projects-cache-time projectile-projects-cache)
|
||||
(before-all (require 'projectile))
|
||||
(after-all (unload-feature 'projectile t))
|
||||
|
||||
(before-each
|
||||
(with-current-buffer a (setq default-directory doom-emacs-dir))
|
||||
(with-current-buffer b (setq default-directory doom-emacs-dir))
|
||||
(with-current-buffer c (setq default-directory "/tmp/"))
|
||||
(with-current-buffer d (setq default-directory "~"))
|
||||
(projectile-mode +1))
|
||||
(after-each
|
||||
(projectile-mode -1))
|
||||
|
||||
(it "returns buffers in the same project"
|
||||
(with-current-buffer a
|
||||
(expect (doom-project-buffer-list)
|
||||
:to-have-same-items-as (list a b))))
|
||||
|
||||
(it "returns all buffers if not in a project"
|
||||
(with-current-buffer c
|
||||
(expect (doom-project-buffer-list)
|
||||
:to-have-same-items-as (buffer-list)))))
|
||||
|
||||
(describe "fallback-buffer"
|
||||
(it "returns a live buffer"
|
||||
(expect (buffer-live-p (doom-fallback-buffer)))))
|
||||
|
||||
(describe "real buffers"
|
||||
(before-each
|
||||
(doom-set-buffer-real a t)
|
||||
(with-current-buffer b (setq buffer-file-name "x"))
|
||||
(with-current-buffer c (rename-buffer "*C*")))
|
||||
|
||||
(describe "real-buffer-p"
|
||||
(it "returns t for buffers manually marked real"
|
||||
(expect (doom-real-buffer-p a)))
|
||||
(it "returns t for file-visiting buffers"
|
||||
(expect (doom-real-buffer-p b)))
|
||||
(it "returns nil for temporary buffers"
|
||||
(expect (doom-real-buffer-p c) :to-be nil)
|
||||
(expect (doom-real-buffer-p d) :to-be nil)))
|
||||
|
||||
(describe "real-buffer-list"
|
||||
(it "returns only real buffers"
|
||||
(expect (doom-real-buffer-list) :to-have-same-items-as (list a b)))))
|
||||
|
||||
(describe "buffer/window management"
|
||||
(describe "buffer search methods"
|
||||
(before-each
|
||||
(with-current-buffer a (lisp-mode))
|
||||
(with-current-buffer b (text-mode))
|
||||
(with-current-buffer c (text-mode))
|
||||
(split-window)
|
||||
(switch-to-buffer b))
|
||||
|
||||
(it "can match buffers by regexp"
|
||||
(expect (doom-matching-buffers "^[ac]$") :to-have-same-items-as (list a c)))
|
||||
(it "can match buffers by major-mode"
|
||||
(expect (doom-buffers-in-mode 'text-mode) :to-have-same-items-as (list b c)))
|
||||
(it "can find all buried buffers"
|
||||
(expect (doom-buried-buffers)
|
||||
:to-have-same-items-as (list c d)))
|
||||
(it "can find all visible buffers"
|
||||
(expect (doom-visible-buffers)
|
||||
:to-have-same-items-as (list a b)))
|
||||
(it "can find all visible windows"
|
||||
(expect (doom-visible-windows)
|
||||
:to-have-same-items-as
|
||||
(mapcar #'get-buffer-window (list a b)))))
|
||||
|
||||
(describe "kill-buffer-and-windows"
|
||||
(before-each
|
||||
(split-window) (switch-to-buffer b)
|
||||
(split-window) (switch-to-buffer a))
|
||||
|
||||
(it "kills the selected buffers and all its windows"
|
||||
(doom-kill-buffer-and-windows a)
|
||||
(expect (buffer-live-p a) :to-be nil)
|
||||
(expect (length (doom-visible-windows)) :to-be 1)))
|
||||
|
||||
;; TODO
|
||||
(describe "kill-all-buffers")
|
||||
(describe "kill-other-buffers")
|
||||
(describe "kill-matching-buffers")
|
||||
(describe "cleanup-session")))
|
||||
54
core/test/test-autoload-files.el
Normal file
54
core/test/test-autoload-files.el
Normal file
|
|
@ -0,0 +1,54 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/test-autoload-files.el
|
||||
|
||||
(describe "core/autoload/files"
|
||||
:var (src dest projectile-projects-cache-time projectile-projects-cache)
|
||||
(before-all (require 'projectile))
|
||||
(after-all (unload-feature 'projectile t))
|
||||
|
||||
(before-each
|
||||
(setq src (make-temp-file "test-src")
|
||||
existing (make-temp-file "test-existing")
|
||||
dest (expand-file-name "test-dest" temporary-file-directory))
|
||||
(quiet! (find-file-literally src))
|
||||
(spy-on 'y-or-n-p :and-return-value nil)
|
||||
(projectile-mode +1))
|
||||
|
||||
(after-each
|
||||
(projectile-mode -1)
|
||||
(switch-to-buffer (doom-fallback-buffer))
|
||||
(ignore-errors (delete-file src))
|
||||
(ignore-errors (delete-file existing))
|
||||
(ignore-errors (delete-file dest)))
|
||||
|
||||
(describe "move-this-file"
|
||||
(it "won't move to itself"
|
||||
(expect (quiet! (doom/move-this-file src)) :to-throw))
|
||||
(it "will move to another file"
|
||||
(expect (quiet! (doom/move-this-file dest t)))
|
||||
(expect (file-exists-p dest))
|
||||
(expect (file-exists-p src) :to-be nil))
|
||||
(it "will prompt if overwriting a file"
|
||||
(quiet! (doom/move-this-file existing))
|
||||
(expect 'y-or-n-p :to-have-been-called-times 1)
|
||||
(expect (file-exists-p src))))
|
||||
|
||||
(describe "copy-this-file"
|
||||
(it "refuses to copy to itself"
|
||||
(expect (quiet! (doom/copy-this-file src)) :to-throw))
|
||||
(it "copies to another file"
|
||||
(expect (quiet! (doom/copy-this-file dest t)))
|
||||
(expect (file-exists-p! src dest)))
|
||||
(it "prompts if overwriting a file"
|
||||
(quiet! (quiet! (doom/copy-this-file existing)))
|
||||
(expect 'y-or-n-p :to-have-been-called-times 1)))
|
||||
|
||||
(describe "delete-this-file"
|
||||
(it "fails gracefully on non-existent files"
|
||||
(expect (quiet! (doom/delete-this-file dest)) :to-throw))
|
||||
(it "deletes existing files"
|
||||
(quiet! (doom/delete-this-file existing t))
|
||||
(expect (file-exists-p existing) :to-be nil))
|
||||
(it "prompts to delete any existing file"
|
||||
(quiet! (doom/delete-this-file existing))
|
||||
(expect 'y-or-n-p :to-have-been-called-times 1))))
|
||||
31
core/test/test-autoload-help.el
Normal file
31
core/test/test-autoload-help.el
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/test-autoload-help.el
|
||||
|
||||
(load! "autoload/help" doom-core-dir)
|
||||
|
||||
;;
|
||||
(describe "core/autoload/help"
|
||||
:var (a)
|
||||
(before-each (setq a (switch-to-buffer (get-buffer-create "a"))))
|
||||
(after-each (kill-buffer a))
|
||||
|
||||
(describe "what-face"
|
||||
(before-each
|
||||
(insert (propertize "Hello " 'face 'font-lock-keyword-face))
|
||||
(insert "world"))
|
||||
(it "returns list of faces at point"
|
||||
(expect (doom/what-face (point-min)) :to-equal '((font-lock-keyword-face) ())))
|
||||
(it "returns nil if no faces at point"
|
||||
(expect (doom/what-face (point-max)) :to-be nil)))
|
||||
|
||||
(describe "what-face overlays"
|
||||
(before-each
|
||||
(insert "Hello world")
|
||||
(let ((ov (make-overlay 1 6)))
|
||||
(overlay-put ov 'face 'font-lock-keyword-face)))
|
||||
|
||||
(it "returns list of overlays at point"
|
||||
(expect (doom/what-face (point-min)) :to-equal '(() (font-lock-keyword-face))))
|
||||
(it "returns nil if no overlays at point"
|
||||
(expect (doom/what-face (point-max)) :to-be nil))))
|
||||
|
||||
37
core/test/test-autoload-message.el
Normal file
37
core/test/test-autoload-message.el
Normal file
|
|
@ -0,0 +1,37 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/test-autoload-message.el
|
||||
|
||||
(describe "core/autoload/message"
|
||||
(describe "format!"
|
||||
:var (noninteractive)
|
||||
(before-all (setq noninteractive t))
|
||||
|
||||
(it "should be a drop-in replacement for `format'"
|
||||
(expect (format! "Hello %s" "World")
|
||||
:to-equal "Hello World"))
|
||||
|
||||
(it "supports ansi coloring in noninteractive sessions"
|
||||
(expect (format! (red "Hello %s" "World"))
|
||||
:to-equal "[31mHello World[0m"))
|
||||
|
||||
(it "supports faces in interactive sessions"
|
||||
(let (noninteractive)
|
||||
(expect (get-text-property 0 'face (format! (red "Hello %s" "World")))
|
||||
:to-equal (list :foreground (face-foreground 'term-color-red)))))
|
||||
|
||||
(it "supports nested color specs"
|
||||
(expect (format! (bold (red "Hello %s" "World")))
|
||||
:to-equal (format "\e[%dm%s\e[0m" 1
|
||||
(format "\e[%dm%s\e[0m" 31 "Hello World")))
|
||||
(expect (format! (on-red (bold "Hello %s" "World")))
|
||||
:to-equal (format "\e[%dm%s\e[0m" 41
|
||||
(format "\e[%dm%s\e[0m" 1 "Hello World")))
|
||||
(expect (format! (dark (white "Hello %s" "World")))
|
||||
:to-equal (format "\e[%dm%s\e[0m" 2
|
||||
(format "\e[%dm%s\e[0m" 37 "Hello World"))))
|
||||
|
||||
(it "supports dynamic color apply syntax"
|
||||
(expect (format! (color 'red "Hello %s" "World"))
|
||||
:to-equal (format! (red "Hello %s" "World")))
|
||||
(expect (format! (color (if nil 'red 'blue) "Hello %s" "World"))
|
||||
:to-equal (format! (blue "Hello %s" "World"))))))
|
||||
128
core/test/test-autoload-package.el
Normal file
128
core/test/test-autoload-package.el
Normal file
|
|
@ -0,0 +1,128 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/test-autoload-package.el
|
||||
|
||||
(describe "core/autoload/packages"
|
||||
:var (package-alist
|
||||
package-archive-contents
|
||||
doom-packages
|
||||
quelpa-cache
|
||||
quelpa-initialized-p
|
||||
doom-packages-dir
|
||||
doom-core-packages
|
||||
package-user-dir
|
||||
quelpa-dir
|
||||
pkg)
|
||||
|
||||
(before-all
|
||||
(fset 'pkg
|
||||
(lambda (name version &optional reqs)
|
||||
(package-desc-create :name name :version version :reqs reqs)))
|
||||
(require 'package)
|
||||
(require 'quelpa)
|
||||
(setq doom-packages-dir (expand-file-name "packages/" (file-name-directory load-file-name))
|
||||
package-user-dir (expand-file-name "elpa" doom-packages-dir)
|
||||
quelpa-dir (expand-file-name "quelpa" doom-packages-dir)
|
||||
quelpa-initialized-p t
|
||||
doom-core-packages nil)
|
||||
(spy-on #'doom-initialize-packages :and-call-fake (lambda (&optional _)))
|
||||
(spy-on #'package-refresh-contents :and-call-fake (lambda (&optional _)))
|
||||
(spy-on #'quelpa-checkout :and-call-fake
|
||||
(lambda (rcp _dir)
|
||||
(when (eq (car rcp) 'doom-quelpa-dummy)
|
||||
"20170405.1234"))))
|
||||
|
||||
(after-all
|
||||
(unload-feature 'package t)
|
||||
(unload-feature 'quelpa t))
|
||||
|
||||
(before-each
|
||||
(setq package-alist
|
||||
`((doom-dummy ,(pkg 'doom-dummy '(20160405 1234)))
|
||||
(doom-uptodate-dummy ,(pkg 'doom-uptodate-dummy '(20160605 1234)))
|
||||
(doom-unwanted-dummy ,(pkg 'doom-unwanted-dummy '(20160605 1234)))
|
||||
(doom-quelpa-dummy ,(pkg 'doom-quelpa-dummy '(20160405 1234)))
|
||||
(doom-noquelpa-dummy ,(pkg 'doom-noquelpa-dummy '(20160405 1234))))
|
||||
package-archive-contents
|
||||
`((doom-dummy ,(pkg 'doom-dummy '(20170405 1234)))
|
||||
(doom-uptodate-dummy ,(pkg 'doom-uptodate-dummy '(20160605 1234))))
|
||||
doom-packages
|
||||
'((doom-dummy)
|
||||
(doom-uptodate-dummy)
|
||||
(doom-missing-dummy)
|
||||
(doom-noquelpa-dummy)
|
||||
(doom-disabled-dummy :disable t)
|
||||
(doom-private-dummy :private t)
|
||||
(doom-disabled-private-dummy :private t :disable t)
|
||||
(doom-quelpa-dummy :recipe (doom-quelpa-dummy :fetcher github :repo "hlissner/does-not-exist")))
|
||||
quelpa-cache
|
||||
'((doom-quelpa-dummy :fetcher github :repo "hlissner/does-not-exist")
|
||||
(doom-noquelpa-dummy :fetcher github :repo "hlissner/does-not-exist-3")
|
||||
(doom-new-quelpa-dummy :fetcher github :repo "hlissner/does-not-exist-2"))))
|
||||
|
||||
(describe "package-backend"
|
||||
(it "determines the correct backend of a package"
|
||||
(expect (doom-package-backend 'doom-dummy) :to-be 'elpa)
|
||||
(expect (doom-package-backend 'doom-quelpa-dummy) :to-be 'quelpa)
|
||||
(expect (doom-package-backend 'org) :to-be 'emacs))
|
||||
(it "errors out if package isn't installed"
|
||||
(expect (doom-package-backend 'xyz) :to-throw)))
|
||||
|
||||
(describe "package-outdated-p (elpa)"
|
||||
(it "detects outdated ELPA packages and returns both versions"
|
||||
(expect (doom-package-outdated-p 'doom-dummy)
|
||||
:to-equal '(doom-dummy (20160405 1234) (20170405 1234))))
|
||||
(it "ignores up-to-date ELPA packages"
|
||||
(expect (doom-package-outdated-p 'doom-uptodate-dummy) :to-be nil))
|
||||
|
||||
(it "detects outdated QUELPA packages and returns both versions"
|
||||
(expect (doom-package-outdated-p 'doom-quelpa-dummy)
|
||||
:to-equal '(doom-quelpa-dummy (20160405 1234) (20170405 1234))))
|
||||
(it "ignores up-to-date QUELPA packages"
|
||||
(expect (doom-package-outdated-p 'doom-uptodate-dummy) :to-be nil))
|
||||
|
||||
(it "returns nil if package isn't installed"
|
||||
(expect (doom-package-outdated-p 'xyz) :to-be nil)))
|
||||
|
||||
(describe "get-packages"
|
||||
(it "returns all packages"
|
||||
(expect (mapcar #'car (doom-get-packages))
|
||||
:to-have-same-items-as
|
||||
(mapcar #'car doom-packages)))
|
||||
(it "returns only disabled packages"
|
||||
(expect (mapcar #'car (doom-get-packages :disabled t))
|
||||
:to-have-same-items-as
|
||||
'(doom-disabled-dummy doom-disabled-private-dummy)))
|
||||
(it "returns only non-disabled packages"
|
||||
(expect (mapcar #'car (doom-get-packages :disabled nil))
|
||||
:to-have-same-items-as
|
||||
'(doom-dummy doom-uptodate-dummy doom-quelpa-dummy doom-missing-dummy doom-noquelpa-dummy doom-private-dummy)))
|
||||
(it "returns only installed packages"
|
||||
(expect (mapcar #'car (doom-get-packages :disabled nil :installed t))
|
||||
:to-have-same-items-as
|
||||
'(doom-dummy doom-uptodate-dummy doom-quelpa-dummy doom-noquelpa-dummy)))
|
||||
(it "returns only non-installed packages"
|
||||
(expect (mapcar #'car (doom-get-packages :disabled nil :installed nil))
|
||||
:to-have-same-items-as
|
||||
'(doom-missing-dummy doom-private-dummy)))
|
||||
(it "returns only private packages"
|
||||
(expect (mapcar #'car (doom-get-packages :private t))
|
||||
:to-have-same-items-as
|
||||
'(doom-private-dummy doom-disabled-private-dummy)))
|
||||
(it "returns only disabled and private packages"
|
||||
(expect (mapcar #'car (doom-get-packages :disabled t :private t))
|
||||
:to-have-same-items-as
|
||||
'(doom-disabled-private-dummy))))
|
||||
|
||||
(describe "get-orphaned-packages"
|
||||
(it "returns orphaned packages"
|
||||
(expect (doom-get-orphaned-packages) :to-contain 'doom-unwanted-dummy))
|
||||
(it "returns packages that have changed backends"
|
||||
(expect (doom-get-orphaned-packages) :to-contain 'doom-noquelpa-dummy)))
|
||||
|
||||
(describe "get-missing-packages"
|
||||
(it "returns packages that haven't been installed"
|
||||
(expect (mapcar #'car (doom-get-missing-packages))
|
||||
:to-contain 'doom-missing-dummy))
|
||||
(it "returns packages that have changed backends"
|
||||
(expect (mapcar #'car (doom-get-missing-packages))
|
||||
:to-contain 'doom-noquelpa-dummy))))
|
||||
90
core/test/test-core-lib.el
Normal file
90
core/test/test-core-lib.el
Normal file
|
|
@ -0,0 +1,90 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/test-core-lib.el
|
||||
|
||||
(describe "core/lib"
|
||||
;; --- Helpers ----------------------------
|
||||
(describe "doom-unquote"
|
||||
(it "unquotes a quoted form"
|
||||
(expect (doom-unquote '(quote hello)) :to-be 'hello))
|
||||
(it "unquotes nested-quoted forms"
|
||||
(expect (doom-unquote '(quote (quote (a b c)))) :to-equal '(a b c)))
|
||||
(it "unquotes function-quoted forms"
|
||||
(expect (doom-unquote '(function a)) :to-be 'a))
|
||||
(it "does nothing to unquoted forms"
|
||||
(expect (doom-unquote 'hello) :to-be 'hello)))
|
||||
|
||||
(describe "doom-enlist"
|
||||
(it "creates a list out of non-lists"
|
||||
(expect (doom-enlist 'a) :to-equal '(a)))
|
||||
(it "does nothing to lists"
|
||||
(expect (doom-enlist '(a)) :to-equal '(a))))
|
||||
|
||||
|
||||
;; --- Macros -----------------------------
|
||||
(describe "hooks"
|
||||
(describe "add-hook!"
|
||||
:var (fake-mode-hook other-mode-hook some-mode-hook)
|
||||
(before-each
|
||||
(setq fake-mode-hook '(first-hook)
|
||||
other-mode-hook nil
|
||||
some-mode-hook '(first-hook second-hook)))
|
||||
|
||||
(it "adds one-to-one hook"
|
||||
(add-hook! fake-mode #'hook-2)
|
||||
(add-hook! 'fake-mode-hook #'hook-1)
|
||||
(expect fake-mode-hook :to-equal '(hook-1 hook-2 first-hook)))
|
||||
|
||||
(it "adds many-to-one hook"
|
||||
(add-hook! (fake-mode other-mode some-mode) #'hook-2)
|
||||
(add-hook! '(fake-mode-hook other-mode-hook some-mode-hook) #'hook-1)
|
||||
(add-hook! :append (fake-mode other-mode some-mode) #'last-hook)
|
||||
(expect fake-mode-hook :to-equal '(hook-1 hook-2 first-hook last-hook))
|
||||
(expect other-mode-hook :to-equal '(hook-1 hook-2 last-hook))
|
||||
(expect some-mode-hook :to-equal '(hook-1 hook-2 first-hook second-hook last-hook)))
|
||||
|
||||
(it "adds many-to-many hooks and preserve provided order"
|
||||
(add-hook! (fake-mode other-mode some-mode) #'(hook-3 hook-4))
|
||||
(add-hook! '(fake-mode-hook other-mode-hook some-mode-hook) #'(hook-1 hook-2))
|
||||
(add-hook! :append '(fake-mode-hook other-mode-hook some-mode-hook) #'(last-hook-1 last-hook-2))
|
||||
(expect fake-mode-hook :to-equal '(hook-1 hook-2 hook-3 hook-4 first-hook last-hook-1 last-hook-2))
|
||||
(expect other-mode-hook :to-equal '(hook-1 hook-2 hook-3 hook-4 last-hook-1 last-hook-2))
|
||||
(expect some-mode-hook :to-equal '(hook-1 hook-2 hook-3 hook-4 first-hook second-hook last-hook-1 last-hook-2)))
|
||||
|
||||
(it "adds implicit lambda to one hook"
|
||||
(add-hook! fake-mode (progn))
|
||||
(add-hook! 'other-mode-hook (ignore))
|
||||
(add-hook! :append 'some-mode-hook (ignore))
|
||||
(expect (caar fake-mode-hook) :to-be 'lambda)
|
||||
(expect (caar other-mode-hook) :to-be 'lambda)
|
||||
(expect (caar (last other-mode-hook)) :to-be 'lambda)))
|
||||
|
||||
(describe "remove-hook!"
|
||||
:var (fake-mode-hook)
|
||||
(before-each
|
||||
(setq fake-mode-hook '(first-hook second-hook third-hook fourth-hook)))
|
||||
(it "removes one hook"
|
||||
(remove-hook! fake-mode #'third-hook)
|
||||
(remove-hook! 'fake-mode-hook #'second-hook)
|
||||
(expect fake-mode-hook :to-equal '(first-hook fourth-hook)))
|
||||
(it "removes multiple hooks"
|
||||
(remove-hook! fake-mode #'(first-hook third-hook))
|
||||
(remove-hook! 'fake-mode-hook #'(second-hook fourth-hook))
|
||||
(expect fake-mode-hook :to-be nil))))
|
||||
|
||||
(describe "add-transient-hook!"
|
||||
(it "adds a transient function to hooks"
|
||||
(let (hooks value)
|
||||
(add-transient-hook! 'hooks (setq value t))
|
||||
(run-hooks 'hooks)
|
||||
(expect value)
|
||||
(expect hooks :to-be nil)))
|
||||
(it "advises a function with a transient advisor"
|
||||
(let (value)
|
||||
(add-transient-hook! #'ignore (setq value (not value)))
|
||||
(ignore t)
|
||||
(expect value)
|
||||
;; repeat to ensure it was only run once
|
||||
(ignore t)
|
||||
(expect value))))
|
||||
|
||||
(xdescribe "associate!")) ; TODO
|
||||
4
core/test/test-core-modules.el
Normal file
4
core/test/test-core-modules.el
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/test-core-modules.el
|
||||
|
||||
(describe "core-modules")
|
||||
4
core/test/test-core-packages.el
Normal file
4
core/test/test-core-packages.el
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/test-core-packages.el
|
||||
|
||||
(describe "core-packages")
|
||||
46
core/test/test-core-projects.el
Normal file
46
core/test/test-core-projects.el
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; ../core/test/test-core-projects.el
|
||||
|
||||
(require 'core-projects)
|
||||
|
||||
(describe "core/projects"
|
||||
(before-all (require 'projectile))
|
||||
(after-all (unload-feature 'projectile t))
|
||||
|
||||
(before-each (projectile-mode +1))
|
||||
(after-each (projectile-mode -1))
|
||||
|
||||
(describe "project-p"
|
||||
(it "Should detect when in a valid project"
|
||||
(let ((buffer-file-name (expand-file-name "init.el" doom-emacs-dir))
|
||||
(default-directory doom-emacs-dir))
|
||||
(expect (doom-project-p))))
|
||||
(it "Should detect when not in a valid project"
|
||||
(let ((buffer-file-name (expand-file-name "test" "~"))
|
||||
(default-directory (expand-file-name "~")))
|
||||
(expect (doom-project-p) :to-be nil))))
|
||||
|
||||
(describe "project-root"
|
||||
(it "should resolve to the project's root"
|
||||
(let ((buffer-file-name (expand-file-name "core.el" doom-core-dir))
|
||||
(default-directory doom-core-dir))
|
||||
(expect (doom-project-root) :to-equal doom-emacs-dir)))
|
||||
(it "should resolve to the `default-directory'"
|
||||
(let ((buffer-file-name (expand-file-name "test" "/"))
|
||||
(default-directory (expand-file-name "/")))
|
||||
(expect (doom-project-root) :to-equal default-directory))))
|
||||
|
||||
(describe "project-expand"
|
||||
(it "expands to a path relative to the project root"
|
||||
(let ((default-directory doom-core-dir))
|
||||
(expect (doom-project-expand "init.el")
|
||||
:to-equal (expand-file-name "init.el" (doom-project-root))))))
|
||||
|
||||
(describe "project-file-exists-p!"
|
||||
(let ((default-directory doom-core-dir))
|
||||
;; Resolve from project root
|
||||
(expect (project-file-exists-p! "init.el"))
|
||||
;; Chained file checks
|
||||
(expect (project-file-exists-p! (and "init.el" "LICENSE")))
|
||||
(expect (project-file-exists-p! (or "init.el" "does-not-exist")))
|
||||
(expect (project-file-exists-p! (and "init.el" (or "LICENSE" "does-not-exist")))))))
|
||||
132
core/test/test-core-ui.el
Normal file
132
core/test/test-core-ui.el
Normal file
|
|
@ -0,0 +1,132 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; ../core/test/test-core-ui.el
|
||||
|
||||
(describe "core/ui"
|
||||
(describe "doom|set-mode-name"
|
||||
:var (doom-major-mode-names after-change-major-mode-hook)
|
||||
(before-all
|
||||
(setq doom-major-mode-names
|
||||
'((text-mode . "abc")
|
||||
(lisp-mode . (lambda () "xyz"))
|
||||
(js-mode . t))
|
||||
after-change-major-mode-hook '(doom|set-mode-name)))
|
||||
|
||||
(it "changes `mode-name' to match a given string"
|
||||
(text-mode)
|
||||
(expect mode-name :to-equal "abc"))
|
||||
|
||||
(it "changes `mode-name' to the result of a function"
|
||||
(lisp-mode)
|
||||
(expect mode-name :to-equal "xyz"))
|
||||
|
||||
(it "should fail if given an invalid name"
|
||||
(expect (js-mode) :to-throw 'error)))
|
||||
|
||||
|
||||
(describe "doom|protect-visible-buffers"
|
||||
:var (kill-buffer-query-functions wconf a b)
|
||||
(before-each
|
||||
(setq a (switch-to-buffer (get-buffer-create "a"))
|
||||
b (get-buffer-create "b")
|
||||
kill-buffer-query-functions '(doom|protect-visible-buffers)
|
||||
wconf (current-window-configuration))
|
||||
(delete-other-windows))
|
||||
|
||||
(after-each
|
||||
(let (kill-buffer-query-functions kill-buffer-hook)
|
||||
(kill-buffer a)
|
||||
(kill-buffer b))
|
||||
(set-window-configuration wconf))
|
||||
|
||||
(it "shouldn't kill buffers that are visible in more than one window"
|
||||
(with-temp-buffer-window
|
||||
(switch-to-buffer a) (split-window)
|
||||
(switch-to-buffer b) (split-window)
|
||||
(switch-to-buffer a)
|
||||
(expect (kill-buffer) :to-be nil)
|
||||
|
||||
(select-window (get-buffer-window b))
|
||||
(expect (kill-buffer)))))
|
||||
|
||||
|
||||
(describe "doom|protect-fallback-buffer"
|
||||
:var (kill-buffer-query-functions a b)
|
||||
(before-all
|
||||
(setq kill-buffer-query-functions '(doom|protect-fallback-buffer)))
|
||||
|
||||
(it "should kill other buffers"
|
||||
(expect (kill-buffer (get-buffer-create "a"))))
|
||||
|
||||
(it "shouldn't kill the fallback buffer"
|
||||
(expect (not (kill-buffer (doom-fallback-buffer))))))
|
||||
|
||||
|
||||
(describe "switch hooks"
|
||||
:var (before-hook after-hook a b)
|
||||
(before-each
|
||||
(setq a (switch-to-buffer (get-buffer-create "a"))
|
||||
b (get-buffer-create "b"))
|
||||
(spy-on 'before-hook)
|
||||
(spy-on 'after-hook)
|
||||
(doom|init-custom-hooks))
|
||||
(after-each
|
||||
(doom|init-custom-hooks 'disable)
|
||||
(kill-buffer a)
|
||||
(kill-buffer b))
|
||||
|
||||
|
||||
(describe "switch-buffer"
|
||||
:var (doom-before-switch-buffer-hook
|
||||
doom-after-switch-buffer-hook)
|
||||
(before-each
|
||||
(setq doom-before-switch-buffer-hook '(before-hook)
|
||||
doom-after-switch-buffer-hook '(after-hook)))
|
||||
(after-each
|
||||
(setq doom-before-switch-buffer-hook nil
|
||||
doom-after-switch-buffer-hook nil))
|
||||
|
||||
(it "should trigger when switching buffers"
|
||||
(switch-to-buffer b)
|
||||
(switch-to-buffer a)
|
||||
(switch-to-buffer b)
|
||||
(expect 'before-hook :to-have-been-called-times 3)
|
||||
(expect 'after-hook :to-have-been-called-times 3))
|
||||
|
||||
(it "should trigger only once on the same buffer"
|
||||
(switch-to-buffer b)
|
||||
(switch-to-buffer b)
|
||||
(switch-to-buffer a)
|
||||
(expect 'before-hook :to-have-been-called-times 2)
|
||||
(expect 'after-hook :to-have-been-called-times 2)))
|
||||
|
||||
|
||||
(describe "switch-window"
|
||||
:var (doom-before-switch-window-hook
|
||||
doom-after-switch-window-hook
|
||||
x y)
|
||||
(before-each
|
||||
(delete-other-windows)
|
||||
(setq x (get-buffer-window a)
|
||||
y (save-selected-window (split-window)))
|
||||
(with-selected-window y
|
||||
(switch-to-buffer b))
|
||||
(select-window x)
|
||||
(spy-calls-reset 'before-hook)
|
||||
(spy-calls-reset 'after-hook)
|
||||
(setq doom-before-switch-window-hook '(before-hook)
|
||||
doom-after-switch-window-hook '(after-hook)))
|
||||
|
||||
(it "should trigger when switching windows"
|
||||
(select-window y)
|
||||
(select-window x)
|
||||
(select-window y)
|
||||
(expect 'before-hook :to-have-been-called-times 3)
|
||||
(expect 'after-hook :to-have-been-called-times 3))
|
||||
|
||||
(it "should trigger only once on the same window"
|
||||
(select-window y)
|
||||
(select-window y)
|
||||
(select-window x)
|
||||
(expect 'before-hook :to-have-been-called-times 2)
|
||||
(expect 'after-hook :to-have-been-called-times 2)))))
|
||||
|
||||
56
core/test/test-core.el
Normal file
56
core/test/test-core.el
Normal file
|
|
@ -0,0 +1,56 @@
|
|||
;; -*- no-byte-compile: t; -*-
|
||||
;;; core/test/test-core.el
|
||||
|
||||
(xdescribe "core"
|
||||
(describe "initialize"
|
||||
:var (doom-init-p doom-init-modules-p doom-private-dir)
|
||||
(before-each
|
||||
(setq doom-init-p nil
|
||||
doom-init-modules-p nil
|
||||
doom-private-dir doom-emacs-dir)
|
||||
|
||||
(spy-on 'require)
|
||||
(spy-on 'load)
|
||||
(spy-on 'doom//reload-doom-autoloads)
|
||||
(spy-on 'doom//reload-package-autoloads)
|
||||
(spy-on 'doom-initialize-autoloads)
|
||||
(spy-on 'doom-ensure-core-directories)
|
||||
(spy-on 'doom-ensure-core-packages)
|
||||
(spy-on 'doom-ensure-packages-initialized)
|
||||
(spy-on 'doom-ensure-same-emacs-version-p))
|
||||
|
||||
(describe "in interactive session"
|
||||
:var (noninteractive)
|
||||
(before-each (setq noninteractive t))
|
||||
|
||||
(it "initializes once, unless forced")
|
||||
(it "does not initialize on consecutive invokations")
|
||||
(it "loads all core libraries" )
|
||||
(it "loads autoloads file" )
|
||||
(it "does not load autoloads file if forced" )
|
||||
(it "regenerates missing autoloads" ))
|
||||
|
||||
(describe "in non-interactive session"
|
||||
:var (noninteractive)
|
||||
(before-each (setq noninteractive nil))
|
||||
|
||||
(it "initializes once, unless forced")
|
||||
(it "does not initialize on consecutive invokations")
|
||||
(it "does not load all core libraries" )
|
||||
(it "loads autoloads file" )
|
||||
(it "does not load autoloads file if forced" )
|
||||
(it "does not regenerate missing autoloads" )))
|
||||
|
||||
(describe "initialize-packages"
|
||||
(before-each (spy-on 'quelpa-setup-p))
|
||||
|
||||
(it "initializes package.el once, unless forced" )
|
||||
(it "initializes quelpa once, unless forced" )
|
||||
(it "initializes doom-packages once, unless forced" ))
|
||||
|
||||
(describe "initialize-modules"
|
||||
(it "loads private init.el once, unless forced" ))
|
||||
|
||||
(describe "initialize-autoloads"
|
||||
(it "loads autoloads file" )
|
||||
(it "ignores autoloads file if cleared" )))
|
||||
Loading…
Add table
Add a link
Reference in a new issue