[elpa] externals/compat a9de656328 4/4: Use compat--... functions when testing the compatibility code

[ELPA Syncer]

branch: externals/compat
commit a9de6563286c26de9cc6f32f531937e60c2586b3
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Use compat--... functions when testing the compatibility code
---
 compat-tests.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 31b5695cde..4f15e41aef 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1903,9 +1903,9 @@ being compared against."
       (should (eq (compat--prop-match-beginning match) 15))
       (should (eq (compat--prop-match-end match) 20))
       (should (eq (compat--prop-match-value match) 'wert)))
-    (should (null (text-property-search-forward 'prop)))
+    (should (null (compat--text-property-search-forward 'prop)))
     (goto-char (point-min))
-    (should (null (text-property-search-forward 'non-existant)))))
+    (should (null (compat--text-property-search-forward 'non-existant)))))
 
 (ert-deftest compat-text-property-search-backward ()
   (when (fboundp 'text-property-search-backward)
@@ -1942,9 +1942,9 @@ being compared against."
       (should (eq (compat--prop-match-beginning match) 5))
       (should (eq (compat--prop-match-end match) 9))
       (should (eq (compat--prop-match-value match) 'val)))
-    (should (null (text-property-search-backward 'prop)))
+    (should (null (compat--text-property-search-backward 'prop)))
     (goto-char (point-max))
-    (should (null (text-property-search-backward 'non-existant)))))
+    (should (null (compat--text-property-search-backward 'non-existant)))))
 
 (provide 'compat-tests)
 ;;; compat-tests.el ends here