From 3c0b18facd0b7e733ec33913da02896b662742c2 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 29 Jun 2022 13:29:27 +0200 Subject: Make two text-property-search tests easier to read * test/lisp/emacs-lisp/text-property-search-tests.el (text-property-search-forward/point-at-beginning) (text-property-search-backward/point-at-end): Rewrite to make tests easier to read. --- test/lisp/emacs-lisp/text-property-search-tests.el | 25 +++++++++++----------- 1 file changed, 12 insertions(+), 13 deletions(-) (limited to 'test/lisp/emacs-lisp/text-property-search-tests.el') diff --git a/test/lisp/emacs-lisp/text-property-search-tests.el b/test/lisp/emacs-lisp/text-property-search-tests.el index d137572f304..98fdd55e85f 100644 --- a/test/lisp/emacs-lisp/text-property-search-tests.el +++ b/test/lisp/emacs-lisp/text-property-search-tests.el @@ -156,20 +156,19 @@ ;;;; Position after search. -(defun text-property-search--pos-test (fun pos &optional reverse) +(ert-deftest text-property-search-forward/point-at-beginning () (with-temp-buffer - (insert (concat "foo " - (propertize "bar" 'x t) - " baz")) - (goto-char (if reverse (point-max) (point-min))) - (funcall fun 'x t) - (should (= (point) pos)))) - -(ert-deftest text-property-search-forward-point-at-beginning () - (text-property-search--pos-test #'text-property-search-forward 5)) - -(ert-deftest text-property-search-backward-point-at-end () - (text-property-search--pos-test #'text-property-search-backward 8 t)) + (insert (concat "1234" (propertize "567" 'x t) "890")) + (goto-char (point-min)) + (text-property-search-forward 'x t) + (should (= (point) 5)))) + +(ert-deftest text-property-search-backward/point-at-end () + (with-temp-buffer + (insert (concat "1234" (propertize "567" 'x t) "890")) + (goto-char (point-max)) + (text-property-search-backward 'x t) + (should (= (point) 8)))) (provide 'text-property-search-tests) -- cgit v1.2.3