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

Reorganize tests

Browse source
This commit is contained in:
Henrik Lissner 2017-04-05 21:42:53 -04:00
parent 6d998b48d9
commit 06855b3417
3 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

65
test/core/test-core-lib.el Normal file
View file

@ -0,0 +1,65 @@
;;; ../test/test-core-lib.el
(def-test-group! core-lib
;; `add-hook!'
(ert-deftest add-one-to-one-hook ()
(let (hooks)
(add-hook! 'hooks 'a-hook)
(should (equal hooks '(a-hook)))))
(ert-deftest add-many-to-one-hook ()
(let (hooks)
(add-hook! 'hooks '(hook-a hook-b hook-c))
(should (equal hooks '(hook-c hook-b hook-a)))))
(ert-deftest 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)))))
(ert-deftest 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-c hook-b hook-a)))
(should (equal hooks-b '(hook-c hook-b hook-a)))
(should (equal hooks-c '(hook-c hook-b hook-a)))))
(ert-deftest add-non-literal-hooks ()
(let (some-mode-hook)
(add-hook! some-mode 'a-hook)
(should (equal some-mode-hook '(a-hook)))))
;; `remove-hook!'
(ert-deftest 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))))
;; `add-transient-hook!'
(ert-deftest transient-hooks ()
(let (hooks value)
(add-transient-hook! hooks (setq value t))
(run-hooks 'hooks)
(should (eq value t))
(should (null hooks))))
(ert-deftest 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!'
;; TODO `def-setting!' & `set!'
)