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

36
test/core/test-core-lib-buffers.el Normal file
View file

@ -0,0 +1,36 @@
;;; ../test/test-core-lib-buffers.el
(def-test-group! core-lib-buffers
(ert-deftest get-buffers ()
(let ((a (get-buffer-create "*a*"))
(b (get-buffer-create "*b*"))
(c (get-buffer-create "*c*"))
(buffers (doom-buffer-list)))
(should buffers)
(should (cl-every 'bufferp buffers))
(should (cl-every (lambda (b) (memq b buffers)) (list a b c)))))
(ert-deftest matching-buffers ()
(let ((a (get-buffer-create "*a*"))
(b (get-buffer-create "*b*"))
(c (get-buffer-create "*c*"))
(buffers (doom-matching-buffers "^\\*[ac]\\*$")))
(should (= 2 (length buffers)))
(should (cl-every 'bufferp buffers))
(should (cl-every (lambda (b) (memq b buffers)) (list a c)))))
(ert-deftest buffers-in-mode ()
(dolist (name (list "*a*" "*b*"))
(with-current-buffer (get-buffer-create name)
(emacs-lisp-mode)))
(dolist (name (list "*c*" "*d*" "*e*"))
(with-current-buffer (get-buffer-create name)
(text-mode)))
(let ((el-buffers (doom-buffers-in-mode 'emacs-lisp-mode))
(txt-buffers (doom-buffers-in-mode 'text-mode)))
(should (cl-every 'bufferp (append el-buffers txt-buffers)))
(should (= 2 (length el-buffers)))
(should (= 3 (length txt-buffers)))))
;; TODO
)