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.

diff --git a/test/lisp/emacs-lisp/text-property-search-tests.el b/test/lisp/emacs-lisp/text-property-search-tests.el
index d137572f304e9744de74e93469497ee9749f0c26..98fdd55e85f1837b633ad9714e1e516365d66f66 100644 (file)
--- a/test/lisp/emacs-lisp/text-property-search-tests.el
+++ b/test/lisp/emacs-lisp/text-property-search-tests.el
@@ -156,20 +156,19 @@
 \f
 ;;;; 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)