Fix: Compound queries with preamble

Bug was introduced in b5ccc32.
2019-08-08 08:29:26 -05:00 · 2019-08-08 08:29:26 -05:00 · c4531b25a4
commit c4531b25a4
parent 4db4e411a0
2 changed files with 14 additions and 6 deletions
--- a/tests/test-org-ql.el
+++ b/tests/test-org-ql.el
@ -459,7 +459,16 @@ Based on Buttercup macro `it'."
        (expect (org-ql test-buffer
                  (ts :on "2019-06-09")
                  :action (org-ql-test-org-get-heading))
-                :to-equal nil)))))
+                :to-equal nil)))
+
+    (describe "Compound queries"
+
+      (org-ql-it "Tags and to-do"
+        (expect (org-ql test-buffer
+                  (and (todo "SOMEDAY")
+                       (tags "Emacs"))
+                  :action (org-ql-test-org-get-heading))
+                :to-equal '("Rewrite Emacs in Common Lisp"))))))

 ;; Local Variables:
 ;; truncate-lines: t