Rename autoload-debug.el test to autoload-help.el

This commit is contained in:
Henrik Lissner
2018-05-24 21:14:40 +02:00
parent 6dc375a891
commit 2a8da07e31

View File

@@ -0,0 +1,17 @@
;; -*- 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))))