This commit is contained in:
Ihor Radchenko 2021-04-17 16:27:12 +08:00
parent 67618c45cf
commit 567c4c4e42
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B

View file

@ -543,7 +543,7 @@ with keyword arg NOW in PLIST."
(it "all clauses have preambles" (it "all clauses have preambles"
(expect (org-ql--query-preamble '(or (regexp "a") (regexp "b"))) (expect (org-ql--query-preamble '(or (regexp "a") (regexp "b")))
:to-equal (list :query '(or (regexp "a") (regexp "b")) :to-equal (list :query '(or (regexp "a") (regexp "b"))
:preamble (rx-to-string `(or (regexp "a") (regexp "b"))) :preamble (rx-to-string `(or (regexp "b") (regexp "a")))
:preamble-case-fold t))) :preamble-case-fold t)))
(it "some clauses miss preambles" (it "some clauses miss preambles"
(expect (org-ql--query-preamble '(or (regexp "a") (+ 1 1))) (expect (org-ql--query-preamble '(or (regexp "a") (+ 1 1)))