Tests: Disable Org link bracket tests on old Org versions

This commit is contained in:
Adam Porter 2023-03-14 12:13:07 -05:00
parent 4c1a4b169f
commit 1d98c7d07c

View file

@ -1147,6 +1147,8 @@ with keyword arg NOW in PLIST."
(before-each
(setq org-ql-test-buffer (org-ql-test-data-buffer "data-links.org")))
(unless (version< org-version "9.3")
;; Earlier Org versions don't allow escaped brackets in descriptions.
(org-ql-it "without arguments"
(org-ql-expect ('(link))
'("Alpha")))
@ -1173,7 +1175,7 @@ with keyword arg NOW in PLIST."
'("Alpha")))
(org-ql-it "with :description and :target regexp"
(org-ql-expect ('(link :description "phr.se" :target "id:.*" :regexp-p t))
'("Alpha")))))
'("Alpha"))))))
(describe "(outline-path)"
(org-ql-it "with one argument"