Add/Change: (heading-regexp), (heading) predicates

Closes #64.  Closes #68.

Thanks to Feng Shu (@tumashu) for suggestions.
This commit is contained in:
Adam Porter 2020-12-09 21:28:55 -06:00
parent 31efd5a26d
commit 2dfd378d5f
4 changed files with 95 additions and 45 deletions

View file

@ -656,6 +656,16 @@ RESULTS should be a list of strings as returned by
(org-ql-expect ('(heading "Take over" "world"))
'("Take over the world"))))
(describe "(heading-regexp)"
(org-ql-it "with one argument"
(org-ql-expect ('(heading-regexp "w.rld"))
;; NOTE: This--correctly--does not match the "Skype with president of
;; Antarctica" heading, which has the tag ":world:" in its heading line.
'("Take over the world")))
(org-ql-it "with two arguments"
(org-ql-expect ('(h* "T.ke over" "wor.*"))
'("Take over the world"))))
(describe "(link)"
(org-ql-it "without arguments"
(org-ql-expect ('(link))