1 ;;; textprop-tests.el --- Test suite for text properties.
3 ;; Copyright (C) 2015 Free Software Foundation, Inc.
5 ;; Author: Wolfgang Jenkner <wjenkner@inode.at>
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
27 (ert-deftest textprop-tests-format
()
28 "Test `format' with text properties."
30 (should (equal-including-properties
31 (format #("mouse-1, RET: %s -- w: copy %s"
32 12 20 (face minibuffer-prompt
)
33 21 30 (face minibuffer-prompt
))
35 #("mouse-1, RET: visit -- w: copy link"
36 12 23 (face minibuffer-prompt
)
37 24 35 (face minibuffer-prompt
)))))
39 (ert-deftest textprop-tests-font-lock--remove-face-from-text-property
()
40 "Test `font-lock--remove-face-from-text-property'."
41 (let* ((string "foobar")
43 (faces '(bold (:foreground
"red") underline
)))
44 ;; Build each string in `stack' by adding a face to the previous
46 (let ((faces (reverse faces
)))
47 (push (copy-sequence (car stack
)) stack
)
48 (put-text-property 0 3 'font-lock-face
(pop faces
) (car stack
))
49 (push (copy-sequence (car stack
)) stack
)
50 (put-text-property 3 6 'font-lock-face
(pop faces
) (car stack
))
51 (push (copy-sequence (car stack
)) stack
)
52 (font-lock-prepend-text-property 2 5
53 'font-lock-face
(pop faces
) (car stack
)))
54 ;; Check that removing the corresponding face from each string
55 ;; yields the previous string in `stack'.
57 ;; (message "%S" (car stack))
58 (should (equal-including-properties
60 (font-lock--remove-face-from-text-property 0 6
67 ;; (message "%S" (car stack))
68 (should (and (equal-including-properties (pop stack
) string
)