]> code.delx.au - gnu-emacs/commitdiff
* test/automated/faces-tests.el: Add another test
authorArtur Malabarba <bruce.connor.am@gmail.com>
Fri, 30 Oct 2015 18:20:42 +0000 (18:20 +0000)
committerArtur Malabarba <bruce.connor.am@gmail.com>
Fri, 30 Oct 2015 18:20:42 +0000 (18:20 +0000)
test/automated/faces-tests.el

index 4029003e38ac7e5bdd627cd4ac25c419dd0abaad..007bc805120ceaa91ded34a418c3cc3644544bde 100644 (file)
@@ -43,6 +43,9 @@
     (setq-local font-lock-constant-face 'faces--test2)
     (insert ";; `symbol'")
     (font-lock-fontify-region (point-min) (point-max))
+    (goto-char (point-min))
+    (should (equal (background-color-at-point) "black"))
+    (should (equal (foreground-color-at-point) "black"))
     (goto-char 6)
     (should (equal (background-color-at-point) "black"))
     (should (equal (foreground-color-at-point) "black"))))