diff options
Diffstat (limited to 'test/lisp/faces-tests.el')
| -rw-r--r-- | test/lisp/faces-tests.el | 177 |
1 files changed, 171 insertions, 6 deletions
diff --git a/test/lisp/faces-tests.el b/test/lisp/faces-tests.el index 056af68af91..f28f9e6aed4 100644 --- a/test/lisp/faces-tests.el +++ b/test/lisp/faces-tests.el @@ -1,29 +1,31 @@ ;;; faces-tests.el --- Tests for faces.el -*- lexical-binding: t; -*- -;; Copyright (C) 2013-2017 Free Software Foundation, Inc. +;; Copyright (C) 2013-2022 Free Software Foundation, Inc. ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> ;; Keywords: -;; This program is free software; you can redistribute it and/or modify +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. -;; This program is distributed in the hope that it will be useful, +;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <https://www.gnu.org/licenses/>. +;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. ;;; Code: (require 'ert) -(require 'faces) +(require 'ert-x) -(defgroup faces--test nil "" +(defgroup faces--test nil "Group to test faces." :group 'faces--test) (defface faces--test1 @@ -36,6 +38,26 @@ "" :group 'faces--test) +(defface faces--test-extend + '((t :extend t :background "blue")) + "" + :group 'faces--test) + +(defface faces--test-no-extend + '((t :extend nil :background "blue")) + "" + :group 'faces--test) + +(defface faces--test-inherit-extend + '((t :inherit (faces--test-extend faces--test2) :background "blue")) + "" + :group 'faces--test) + +(defface faces--test-inherit-no-extend + '((t :inherit (faces--test2 faces--test-no-extend) :background "blue")) + "" + :group 'faces--test) + (ert-deftest faces--test-color-at-point () (with-temp-buffer (insert (propertize "STRING" 'face '(faces--test2 faces--test1))) @@ -60,5 +82,148 @@ (should (equal (background-color-at-point) "black")) (should (equal (foreground-color-at-point) "black")))) +(ert-deftest faces--test-face-id () + ;; Face ID of 0 is the 'default' face; no face should have the same ID. + (should (> (face-id 'faces--test1) 0)) + ;; 'tooltip' is the last face defined by preloaded packages, so any + ;; face we define in Emacs should have a face ID greater than that, + ;; since the ID of a face is just its index in the array that maps + ;; face IDs to faces. + (should (> (face-id 'faces--test1) (face-id 'tooltip)))) + +(ert-deftest faces--test-extend () + (should (equal (face-attribute 'faces--test-extend :extend) t)) + (should (equal (face-attribute 'faces--test-no-extend :extend) nil)) + (should (equal (face-attribute 'faces--test1 :extend) 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-extend :extend nil t) t)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend nil t) + nil)) + ) + +(ert-deftest faces--test-extend-with-themes () + (defface spiff-changed-face + '((t :extend t :weight bold)) + "") + (defface spiff-added + '((t :background "grey")) + "") + (defface spiff-file-header-face + '((t :extend nil :foreground "cyan")) + "") + (should (equal (face-attribute 'spiff-changed-face :extend) t)) + (should (equal (face-attribute 'spiff-added :extend) 'unspecified)) + (should (equal (face-attribute 'spiff-file-header-face :extend) nil)) + (add-to-list 'custom-theme-load-path (ert-resource-directory)) + (load-theme 'faces-test-dark t t) + (load-theme 'faces-test-light t t) + (should (equal (face-attribute 'faces--test-inherit-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-extend :extend nil t) t)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend nil t) + nil)) + (should (equal (face-attribute 'spiff-changed-face :extend) t)) + (should (equal (face-attribute 'spiff-added :extend) 'unspecified)) + (should (equal (face-attribute 'spiff-file-header-face :extend) nil)) + (enable-theme 'faces-test-dark) + (should (equal (face-attribute 'faces--test-inherit-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-extend :extend nil t) t)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend nil t) + nil)) + (should (equal (face-attribute 'spiff-changed-face :extend) t)) + (should (equal (face-attribute 'spiff-added :extend) t)) + (should (equal (face-attribute 'spiff-file-header-face :extend) nil)) + (defface faces--test-face3 + '((t :inherit spiff-added :weight bold)) + "") + (should (equal (face-attribute 'faces--test-face3 :extend nil t) t)) + (disable-theme 'faces-test-dark) + (should (equal (face-attribute 'faces--test-inherit-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-extend :extend nil t) t)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend nil t) + nil)) + (should (equal (face-attribute 'spiff-changed-face :extend) t)) + (should (equal (face-attribute 'spiff-added :extend) 'unspecified)) + (should (equal (face-attribute 'spiff-file-header-face :extend) nil)) + (should (equal (face-attribute 'faces--test-face3 :extend nil t) 'unspecified)) + (defface spiff-indicator-changed + '((t (:weight bold :extend t))) + "") + (enable-theme 'faces-test-light) + (should (equal (face-attribute 'faces--test-inherit-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-extend :extend nil t) t)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend nil t) + nil)) + (should (equal (face-attribute 'spiff-changed-face :extend) t)) + (should (equal (face-attribute 'spiff-added :extend) t)) + (should (equal (face-attribute 'spiff-file-header-face :extend) nil)) + (should (equal (face-attribute 'spiff-indicator-changed :extend) t)) + (should (equal (face-attribute 'faces--test-face3 :extend nil t) t)) + (frame-set-background-mode (selected-frame) 'dark) + (should (equal (face-attribute 'faces--test-inherit-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-extend :extend nil t) t)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-no-extend :extend nil t) + nil)) + (should (equal (face-attribute 'spiff-changed-face :extend) t)) + (should (equal (face-attribute 'spiff-added :extend) t)) + (should (equal (face-attribute 'spiff-file-header-face :extend) nil)) + (should (equal (face-attribute 'spiff-indicator-changed :extend) t)) + (should (equal (face-attribute 'faces--test-face3 :extend nil t) t)) + (or noninteractive + (let ((fr (make-frame))) + (should (equal (face-attribute 'faces--test-inherit-extend :extend fr) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-extend :extend fr t) + t)) + (should (equal (face-attribute 'faces--test-inherit-no-extend + :extend fr) + 'unspecified)) + (should (equal (face-attribute 'faces--test-inherit-no-extend + :extend fr t) + nil)) + (should (equal (face-attribute 'spiff-changed-face :extend fr) t)) + (should (equal (face-attribute 'spiff-added :extend fr) t)) + (should (equal (face-attribute 'spiff-file-header-face :extend fr) nil)) + (should (equal (face-attribute 'spiff-indicator-changed :extend fr) t)) + (should (equal (face-attribute 'faces--test-face3 :extend nil t) t)) + )) + (disable-theme 'faces-test-light) + (should (equal (face-attribute 'spiff-indicator-changed :extend) t)) + (should (equal (face-attribute 'faces--test-face3 :extend nil t) 'unspecified)) + (or noninteractive + (let ((fr (make-frame))) + (should (equal (face-attribute 'spiff-changed-face :extend fr) t)) + (should (equal (face-attribute 'spiff-added :extend fr) 'unspecified)) + (should (equal (face-attribute 'spiff-file-header-face :extend fr) nil)) + (should (equal (face-attribute 'spiff-indicator-changed :extend fr) t)) + (should (equal (face-attribute 'faces--test-face3 :extend nil t) 'unspecified)) + )) + ) + +(ert-deftest test-tty-find-type () + (let ((pred (lambda (string) + (locate-library (concat "term/" string ".el"))))) + (should (tty-find-type pred "cygwin")) + (should (tty-find-type pred "cygwin-foo")) + (should (equal (tty-find-type pred "xterm") "xterm")) + (should (equal (tty-find-type pred "screen.xterm") "screen")))) + (provide 'faces-tests) ;;; faces-tests.el ends here |