;; -*- no-byte-compile: t; -*-
;;; core/test/autoload-debug.el

(def-test! 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)))))

(def-test! 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)))))