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

test/test-core-lib-buffers: rearrange buffer & membership checks

Browse source
This commit is contained in:
Henrik Lissner 2017-04-05 14:25:46 -04:00
parent 93518e36cf
commit 598f3bc640
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/test-core-lib-buffers.el
View file

@ -7,8 +7,8 @@
(c (get-buffer-create "*c*")) (c (get-buffer-create "*c*"))
(buffers (doom-buffer-list))) (buffers (doom-buffer-list)))
(should buffers) (should buffers)
(should (cl-every (lambda (b) (memq b buffers)) (list a b c))) (should (cl-every 'bufferp buffers))
(should (cl-every 'bufferp buffers)))) (should (cl-every (lambda (b) (memq b buffers)) (list a b c)))))
(ert-deftest matching-buffers () (ert-deftest matching-buffers ()
(let ((a (get-buffer-create "*a*")) (let ((a (get-buffer-create "*a*"))
@ -16,8 +16,8 @@
(c (get-buffer-create "*c*")) (c (get-buffer-create "*c*"))
(buffers (doom-matching-buffers "^\\*[ac]\\*$"))) (buffers (doom-matching-buffers "^\\*[ac]\\*$")))
(should (= 2 (length buffers))) (should (= 2 (length buffers)))
(should (cl-every (lambda (b) (memq b buffers)) (list a c))) (should (cl-every 'bufferp buffers))
(should (cl-every 'bufferp buffers)))) (should (cl-every (lambda (b) (memq b buffers)) (list a c)))))
(ert-deftest buffers-in-mode () (ert-deftest buffers-in-mode ()
(dolist (name (list "*a*" "*b*")) (dolist (name (list "*a*" "*b*"))