jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tests: Disable Org link bracket tests on old Org versions

Browse source
This commit is contained in:
Adam Porter 2023-03-14 12:13:07 -05:00
parent 4c1a4b169f
commit 1d98c7d07c
1 changed files with 29 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

56
tests/test-org-ql.el
View file

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