From e2a1d16cc4301f5882f4580ec82e111219837a45 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Wed, 23 Jun 2021 01:47:05 -0500 Subject: [PATCH] Tests: Normalization of tags-inherited predicate See #216. --- tests/test-org-ql.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/tests/test-org-ql.el b/tests/test-org-ql.el index dcc6611..cd0a846 100644 --- a/tests/test-org-ql.el +++ b/tests/test-org-ql.el @@ -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)"