Merge branch 'emacs-25-merge'

[gnu-emacs] / test / lisp / faces-tests.el

diff --git a/test/lisp/faces-tests.el b/test/lisp/faces-tests.el
index 007bc805120ceaa91ded34a418c3cc3644544bde..ff9dfc53fbee6b3385809a2b991dfcfb65d1897d 100644 (file)
--- a/test/lisp/faces-tests.el
+++ b/test/lisp/faces-tests.el
@@ -37,6 +37,11 @@
     (goto-char (point-min))
     (should (equal (background-color-at-point) "black"))
     (should (equal (foreground-color-at-point) "black")))
+  (with-temp-buffer
+    (insert (propertize "STRING" 'face '(:foreground "black" :background "black")))
+    (goto-char (point-min))
+    (should (equal (background-color-at-point) "black"))
+    (should (equal (foreground-color-at-point) "black")))
   (with-temp-buffer
     (emacs-lisp-mode)
     (setq-local font-lock-comment-face 'faces--test1)