[elpa] externals/org 678af9d502 5/5: test-org/auto-repeat-maybe: Fix Emacs <28 compatibility

[ELPA Syncer]

branch: externals/org
commit 678af9d5022cbf0f871dd5804ede448d1a9cb938
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    test-org/auto-repeat-maybe: Fix Emacs <28 compatibility
    
    * testing/lisp/test-org.el (test-org/auto-repeat-maybe): Do not use
    `string-search', which is not yet available in Emacs <28.
---
 testing/lisp/test-org.el | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 61c996825c..98d3e27829 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -8412,24 +8412,24 @@ Paragraph<point>"
        (buffer-string))))
   ;; Handle every repeater type using hours step.
   (should
-   (string-search
-    "<2014-03-04 02:00 +8h>"
+   (string-match-p
+    (regexp-quote "<2014-03-04 02:00 +8h>")
     (org-test-without-dow
      (org-test-at-time "<2014-03-04 02:35>"
       (org-test-with-temp-text "* TODO H\n<2014-03-03 18:00 +8h>"
        (org-todo "DONE")
        (buffer-string))))))
   (should
-   (string-search
-    "<2014-03-04 10:00 ++8h>"
+   (string-match-p
+    (regexp-quote "<2014-03-04 10:00 ++8h>")
     (org-test-without-dow
      (org-test-at-time "<2014-03-04 02:35>"
       (org-test-with-temp-text "* TODO H\n<2014-03-03 18:00 ++8h>"
        (org-todo "DONE")
        (buffer-string))))))
   (should
-   (string-search
-    "<2014-03-04 10:35 .+8h>"
+   (string-match-p
+    (regexp-quote "<2014-03-04 10:35 .+8h>")
     (org-test-without-dow
      (org-test-at-time "<2014-03-04 02:35>"
       (org-test-with-temp-text "* TODO H\n<2014-03-03 18:00 .+8h>"
@@ -8437,8 +8437,8 @@ Paragraph<point>"
        (buffer-string))))))
   ;; Handle `org-extend-today-until'.
   (should
-   (string-search
-    "<2014-03-04 ++1d>"
+   (string-match-p
+    (regexp-quote "<2014-03-04 ++1d>")
     (let ((org-extend-today-until 4))
       (org-test-without-dow
        (org-test-at-time "<2014-03-04 02:35>"
@@ -8446,8 +8446,8 @@ Paragraph<point>"
          (org-todo "DONE")
          (buffer-string)))))))
   (should
-   (string-search
-    "<2014-03-06 17:00 ++1d>"
+   (string-match-p
+    (regexp-quote "<2014-03-06 17:00 ++1d>")
     (let ((org-extend-today-until 4))
       (org-test-without-dow
        (org-test-at-time "<2014-03-05 18:00>"
@@ -8455,8 +8455,8 @@ Paragraph<point>"
          (org-todo "DONE")
          (buffer-string)))))))
   (should
-   (string-search
-    "<2014-03-04 10:00 ++8h>"
+   (string-match-p
+    (regexp-quote "<2014-03-04 10:00 ++8h>")
     (let ((org-extend-today-until 4))
       (org-test-without-dow
        (org-test-at-time "<2014-03-04 02:35>"
@@ -8464,8 +8464,8 @@ Paragraph<point>"
          (org-todo "DONE")
          (buffer-string)))))))
   (should
-   (string-search
-    "<2014-03-04 18:00 .+1d>"
+   (string-match-p
+    (regexp-quote "<2014-03-04 18:00 .+1d>")
     (let ((org-extend-today-until 4))
       (org-test-without-dow
        (org-test-at-time "<2014-03-04 02:35>"
@@ -8473,8 +8473,8 @@ Paragraph<point>"
          (org-todo "DONE")
          (buffer-string)))))))
   (should
-   (string-search
-    "<2014-03-04 10:35 .+8h>"
+   (string-match-p
+    (regexp-quote "<2014-03-04 10:35 .+8h>")
     (let ((org-extend-today-until 4))
       (org-test-without-dow
        (org-test-at-time "<2014-03-04 02:35>"