17 lines
557 B
EmacsLisp
17 lines
557 B
EmacsLisp
;; -*- no-byte-compile: t; -*-
|
|
;;; core/test/autoload-help.el
|
|
|
|
(def-test! what-face
|
|
(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))))
|
|
|
|
(def-test! what-face-overlays
|
|
(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))))
|