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

Add comprehensive tests for the link predicate

Browse source
This commit is contained in:
Akira Komamura 2021-06-14 01:48:04 +09:00
parent 123f65c1c1
commit 95561733c9
1 changed files with 22 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -669,19 +669,39 @@ RESULTS should be a list of strings as returned by
(describe "(link)"
(org-ql-it "without arguments"
(org-ql-expect ('(link))
'("/r/emacs")))
'("/r/emacs" "Check out sanityinc")))
(org-ql-it "with description-or-target"
(org-ql-expect ('(link "emacs"))
'("/r/emacs")))
(org-ql-it "with :description"
(org-ql-expect ('(link :description "emacs"))
'("/r/emacs")))
(org-ql-it "with description-or-target (regexp)"
(org-ql-expect (`(link ,(rx (or "emacs" "Linux")) :regexp t))
'("/r/emacs")))
(org-ql-it "with :description (regexp)"
(org-ql-expect (`(link :description ,(rx (or "emacs" "Linux")) :regexp t))
'("/r/emacs")))
(org-ql-it "with :target"
(org-ql-expect ('(link :target "reddit.com"))
'("/r/emacs")))
(org-ql-it "with :target (regexp)"
(org-ql-expect (`(link :target ,(rx "reddit.com") :regexp t))
'("/r/emacs")))
(org-ql-it "with :description and :target"
(org-ql-expect ('(link :description "emacs" :target "reddit.com"))
'("/r/emacs"))))
'("/r/emacs"))
(org-ql-expect ('(link :description "Sanity, Inc." :target "sanityinc.com"))
'("Check out sanityinc"))
(org-ql-expect ('(link :description "sanityinc.com" :target "sanityinc.com"))
nil)
(org-ql-expect ('(link :description "Sanity, Inc." :target "Sanity, Inc."))
nil))
(org-ql-it "with :description and :target (regexp)"
(org-ql-expect (`(link :description ,(rx "Sanity, Inc.")
:target ,(rx "sanityinc.com")
:regexp t))
'("Check out sanityinc"))))
(describe "(outline-path)"
(org-ql-it "with one argument"