diff options
| author | Artur Malabarba | 2015-10-30 18:20:42 +0000 |
|---|---|---|
| committer | Artur Malabarba | 2015-10-30 18:20:42 +0000 |
| commit | 36ead807e2fe3f4aa211965cad4a5651e52cc431 (patch) | |
| tree | 80bbc51070e42b0ff1b0c1dcf7044bdfd64089e5 | |
| parent | 4c060051bfcb2ac9b0f825adc9482c23c0b8ffc4 (diff) | |
| download | emacs-36ead807e2fe3f4aa211965cad4a5651e52cc431.tar.gz emacs-36ead807e2fe3f4aa211965cad4a5651e52cc431.zip | |
* test/automated/faces-tests.el: Add another test
| -rw-r--r-- | test/automated/faces-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/automated/faces-tests.el b/test/automated/faces-tests.el index 4029003e38a..007bc805120 100644 --- a/test/automated/faces-tests.el +++ b/test/automated/faces-tests.el | |||
| @@ -43,6 +43,9 @@ | |||
| 43 | (setq-local font-lock-constant-face 'faces--test2) | 43 | (setq-local font-lock-constant-face 'faces--test2) |
| 44 | (insert ";; `symbol'") | 44 | (insert ";; `symbol'") |
| 45 | (font-lock-fontify-region (point-min) (point-max)) | 45 | (font-lock-fontify-region (point-min) (point-max)) |
| 46 | (goto-char (point-min)) | ||
| 47 | (should (equal (background-color-at-point) "black")) | ||
| 48 | (should (equal (foreground-color-at-point) "black")) | ||
| 46 | (goto-char 6) | 49 | (goto-char 6) |
| 47 | (should (equal (background-color-at-point) "black")) | 50 | (should (equal (background-color-at-point) "black")) |
| 48 | (should (equal (foreground-color-at-point) "black")))) | 51 | (should (equal (foreground-color-at-point) "black")))) |