Fix test
This commit is contained in:
parent
67618c45cf
commit
567c4c4e42
1 changed files with 1 additions and 1 deletions
|
|
@ -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)))
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue