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

Tests: Add more LINK tests

Browse source 
Closes https://github.com/alphapapa/org-ql/pull/222.  See also
https://github.com/alphapapa/org-ql/pull/220.

Thanks to Akira Komamura (@akirak).
This commit is contained in:
Adam Porter 2021-06-16 17:07:11 -05:00
parent 5bba08403d
commit c57f0975f6
2 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tests/data.org
View file

@ -81,7 +81,7 @@ SCHEDULED: <2017-07-05 Wed>
If I don't, the frobnicator will probably fall off halfway to Mars...
Gotta buy one first, though.
Gotta buy one first, though. [[https://example.com/][This one]] looks suitable.
* Recurring
:PROPERTIES:

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

@ -644,7 +644,7 @@ RESULTS should be a list of strings as returned by
(describe "(link)"
(org-ql-it "without arguments"
(org-ql-expect ('(link))
'("/r/emacs")))
'("Fix flux capacitor" "/r/emacs")))
(org-ql-it "with description-or-target"
(org-ql-expect ('(link "emacs"))
'("/r/emacs")))
@ -656,6 +656,18 @@ RESULTS should be a list of strings as returned by
'("/r/emacs")))
(org-ql-it "with :description and :target"
(org-ql-expect ('(link :description "emacs" :target "reddit.com"))
'("/r/emacs")))
(org-ql-it "with description-or-target regexp"
(org-ql-expect ('(link "em.cs" :regexp-p t))
'("/r/emacs")))
(org-ql-it "with :description regexp"
(org-ql-expect ('(link :description "em.cs" :regexp-p t))
'("/r/emacs")))
(org-ql-it "with :target regexp"
(org-ql-expect ('(link :target "em.cs" :regexp-p t))
'("/r/emacs")))
(org-ql-it "with :description and :target regexp"
(org-ql-expect ('(link :description "em.cs" :target "em.cs" :regexp-p t))
'("/r/emacs"))))
(describe "(outline-path)"