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

Tests: Tidy

Browse source
This commit is contained in:
Adam Porter 2020-02-24 01:48:09 -06:00
parent 9a56141f6c
commit 9b2ff276a0
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -218,13 +218,16 @@ RESULTS should be a list of strings as returned by
(describe "Query pre-processing"
(it "level:"
(expect (org-ql--pre-process-query '(level "1"))
:to-equal '(level 1))
(expect (org-ql--pre-process-query '(level "1" "2"))
:to-equal '(level 1 2))
(expect (org-ql--pre-process-query '(level ">" "1"))
:to-equal '(level > 1)))
(describe "(level)"
(it "with one level"
(expect (org-ql--pre-process-query '(level "1"))
:to-equal '(level 1)))
(it "with two levels"
(expect (org-ql--pre-process-query '(level "1" "2"))
:to-equal '(level 1 2)))
(it "with a comparator and a level"
(expect (org-ql--pre-process-query '(level ">" "1"))
:to-equal '(level > 1))))
(describe "(link)"
(it "with one argument"