mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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.
This commit is contained in:
Ihor Radchenko 2023-10-16 13:24:24 +03:00
parent 16548593eb
commit 678af9d502
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
testing/lisp/test-org.el
View File

@ -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>"