diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2019-07-06 16:27:05 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-06 16:27:05 +0200 |
| commit | cfcaf06fe5846672f59968449c8653a3e9dcba5b (patch) | |
| tree | a45e799b9db928003bee4cad4094111a91d2928e | |
| parent | 3cb166ad268244f253a0bf3dd180ab871d1bed55 (diff) | |
| download | emacs-cfcaf06fe5846672f59968449c8653a3e9dcba5b.tar.gz | |
Add tests for text-property-search to check prop-match-value
* test/lisp/emacs-lisp/text-property-search-tests.el
(with-match-test): New macro.
(text-property-search-forward-prop-match-match-face-nil-nil)
(text-property-search-forward-prop-match-match-face-bold-t)
(text-property-search-forward-prop-match-match-face-bold-nil)
(text-property-search-backward-prop-match-match-face-nil-nil)
(text-property-search-backward-prop-match-match-face-italic-t)
(text-property-search-backward-prop-match-match-face-italic-nil):
Add test cases to also verify the value of prop-match-value
(bug#36486).
| -rw-r--r-- | test/lisp/emacs-lisp/text-property-search-tests.el | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/text-property-search-tests.el b/test/lisp/emacs-lisp/text-property-search-tests.el index 47db54a0512..21a25c7835f 100644 --- a/test/lisp/emacs-lisp/text-property-search-tests.el +++ b/test/lisp/emacs-lisp/text-property-search-tests.el @@ -108,6 +108,49 @@ '("bold1") 35)) +(defmacro with-match-test (form beginning end value &optional point) + `(with-temp-buffer + (text-property-setup) + (when ,point + (goto-char ,point)) + (should (equal ,form + (make-prop-match :beginning ,beginning + :end ,end + :value ,value))))) + +(ert-deftest text-property-search-forward-prop-match-match-face-nil-nil () + (with-match-test + (text-property-search-forward 'face nil nil) + 9 14 'bold)) + +(ert-deftest text-property-search-forward-prop-match-match-face-bold-t () + (with-match-test + (text-property-search-forward 'face 'bold t) + 9 14 'bold)) + +(ert-deftest text-property-search-forward-prop-match-match-face-bold-nil () + (with-match-test + (text-property-search-forward 'face 'bold nil) + 1 9 nil)) + +(ert-deftest text-property-search-backward-prop-match-match-face-nil-nil () + (with-match-test + (text-property-search-backward 'face nil nil) + 39 46 'italic + (point-max))) + +(ert-deftest text-property-search-backward-prop-match-match-face-italic-t () + (with-match-test + (text-property-search-backward 'face 'italic t) + 39 46 'italic + (point-max))) + +(ert-deftest text-property-search-backward-prop-match-match-face-italic-nil () + (with-match-test + (text-property-search-backward 'face 'italic nil) + 46 57 nil + (point-max))) + (provide 'text-property-search-tests) ;;; text-property-search-tests.el ends here |