Fix: (level) Check number argument for preamble
This allows a query like this: (level <= (string-to-number (property PROPERTY))) to proceed without signaling an error from ORG-QL--QUERY-PREAMBLE. See #460. Reported-by: Stewmath <https://github.com/Stewmath>
This commit is contained in:
parent
3e7f48ad7e
commit
5ea97d2272
4 changed files with 57 additions and 45 deletions
|
|
@ -636,6 +636,11 @@ with keyword arg NOW in PLIST."
|
|||
:to-equal (list :query t
|
||||
:preamble (rx bol (repeat 2 4 "*") " ")
|
||||
:preamble-case-fold t)))
|
||||
(it "with an expression in level number's place"
|
||||
(expect (org-ql--query-preamble '(level <= (string-to-number (property "PROPERTY"))))
|
||||
:to-equal (list :query '(level <= (string-to-number (property "PROPERTY")))
|
||||
:preamble nil
|
||||
:preamble-case-fold t)))
|
||||
(it "<"
|
||||
(expect (org-ql--query-preamble '(level < 3))
|
||||
:to-equal (list :query t
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue