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

Add autoload/debug.el unit tests

Browse source
This commit is contained in:
Henrik Lissner 2017-06-10 16:08:15 +02:00
parent ca222c1b75
commit d9e422d64a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
test/core/autoload/test-debug.el Normal file
View file

@ -0,0 +1,19 @@
;;; test/core/autoload/test-debug.el
(def-test-group! core/autoload/debug
(ert-deftest what-face ()
(with-temp-buffer
(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)))))
(ert-deftest what-face-overlays ()
(with-temp-buffer
(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))))))