awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Update tests for doom/what-face

Browse Source
This commit is contained in:
Henrik Lissner
2018-06-15 21:31:13 +02:00
parent 4856217c84
commit 7773a312aa
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
core/test/test-autoload-help.el
View File

@ -14,9 +14,9 @@
(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) ())))
(expect (doom/what-face nil (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)))
(expect (doom/what-face nil (point-max)) :to-be nil)))
(describe "what-face overlays"
(before-each
@ -25,7 +25,7 @@
(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))))
(expect (doom/what-face nil (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))))
(expect (doom/what-face nil (point-max)) :to-be nil))))