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

Remove doom/what-face unit tests

Browse source
This commit is contained in:
Henrik Lissner 2019-03-13 02:17:37 -04:00
parent d868f5fd10
commit a669406cad
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 5 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

31
core/test/test-autoload-help.el
View file

@ -1,31 +1,10 @@
;; -*- no-byte-compile: t; -*- ;; -*- no-byte-compile: t; -*-
;;; core/test/test-autoload-help.el ;;; core/test/test-autoload-help.el
(load! "autoload/help" doom-core-dir) ;; (load! "autoload/help" doom-core-dir)
;; ;;
(describe "core/autoload/help" ;; (describe "core/autoload/help"
:var (a) ;; :var (a)
(before-each (setq a (switch-to-buffer (get-buffer-create "a")))) ;; (before-each (setq a (switch-to-buffer (get-buffer-create "a"))))
(after-each (kill-buffer a)) ;; (after-each (kill-buffer a)))
(describe "what-face"
(before-each
(insert (propertize "Hello " 'face 'font-lock-keyword-face))
(insert "world"))
(it "returns list of faces at point"
(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 nil (point-max)) :to-be nil)))
(describe "what-face overlays"
(before-each
(insert "Hello world")
(let ((ov (make-overlay 1 6)))
(overlay-put ov 'face 'font-lock-keyword-face)))
(it "returns list of overlays at point"
(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 nil (point-max)) :to-be nil))))