jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change: Improve level predicate

Browse source 
Now accepts e.g. (level 2 4) to match headings from levels 2-4,
inclusive.

Also add tests for (level) preamble conversion.
This commit is contained in:
Adam Porter 2019-07-23 19:14:01 -05:00
parent 99b38d131e
commit bdf473356d
3 changed files with 57 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

35
tests/test-org-ql.el
View file

@ -107,7 +107,34 @@ Based on Buttercup macro `it'."
(cl-loop while (re-search-forward org-heading-regexp nil t)
sum 1)))))
(describe "Predicates"
(describe "Query compiling"
;; Okay, so it's not really "compiling," but it sounds fancy. :)
;; TODO: Other predicates.
(describe "(level)"
(it "with a number"
(expect (org-ql--query-preamble '(level 2))
:to-equal `(t ,(rx bol (repeat 2 "*") " "))))
(it "with two numbers"
(expect (org-ql--query-preamble '(level 2 4))
:to-equal `(t ,(rx bol (repeat 2 4 "*") " "))))
(it "<"
(expect (org-ql--query-preamble '(level < 3))
:to-equal `(t ,(rx bol (repeat 1 2 "*") " "))))
(it "<="
(expect (org-ql--query-preamble '(level <= 2))
:to-equal `(t ,(rx bol (repeat 1 2 "*") " "))))
(it ">"
(expect (org-ql--query-preamble '(level > 2))
:to-equal `(t ,(rx bol (>= 3 "*") " "))))
(it ">="
(expect (org-ql--query-preamble '(level >= 2))
:to-equal `(t ,(rx bol (>= 2 "*") " "))))))
(describe "Query results"
;; TODO: Other predicates.
(describe "(category)"
(org-ql-it "without arguments"
@ -364,10 +391,6 @@ 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))
)
;; TODO: Other predicates.
))
:to-equal nil)))))
;;; org-ql.el ends here