Tests: Normalization of tags-inherited predicate

See #216.
This commit is contained in:
Adam Porter 2021-06-23 01:47:05 -05:00
parent 1198284c7e
commit e2a1d16cc4

View file

@ -257,6 +257,20 @@ with keyword arg NOW in PLIST."
(expect (org-ql--normalize-query '(olp "a." "b")) (expect (org-ql--normalize-query '(olp "a." "b"))
:to-equal '(org-ql--predicate-outline-path "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" (describe "timestamp predicates"
;; NOTE: (clocked) and (closed) don't accept :with-time arguments. ;; NOTE: (clocked) and (closed) don't accept :with-time arguments.
(describe "(clocked)" (describe "(clocked)"