andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make two text-property-search tests easier to read

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2022-06-29 13:29:27 +02:00
parent f9d35afea3
commit 3c0b18facd
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
test/lisp/emacs-lisp/text-property-search-tests.el
View file

@ -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))))
(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-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))
(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)