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

Tests: Normalization of tags-inherited predicate

Browse source 
See #216.
This commit is contained in:
Adam Porter 2021-06-23 01:47:05 -05:00
parent 1198284c7e
commit e2a1d16cc4
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -257,6 +257,20 @@ with keyword arg NOW in PLIST."
(expect (org-ql--normalize-query '(olp "a." "b"))
:to-equal '(org-ql--predicate-outline-path "a\\." "b"))))
(describe "(tags-inherited)"
(expect (org-ql--normalize-query '(tags-inherited))
:to-equal '(tags-inherited))
(expect (org-ql--normalize-query '(itags))
:to-equal '(tags-inherited))
(expect (org-ql--normalize-query '(tags-inherited "foo"))
:to-equal '(tags-inherited "foo"))
(expect (org-ql--normalize-query '(itags "foo"))
:to-equal '(tags-inherited "foo"))
(expect (org-ql--normalize-query '(tags-inherited "foo" "bar"))
:to-equal '(tags-inherited "foo" "bar"))
(expect (org-ql--normalize-query '(itags "foo" "bar"))
:to-equal '(tags-inherited "foo" "bar")))
(describe "timestamp predicates"
;; NOTE: (clocked) and (closed) don't accept :with-time arguments.
(describe "(clocked)"