From 9b2ff276a0419715a02cb36127e450756afcfebc Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 24 Feb 2020 01:48:09 -0600 Subject: [PATCH] Tests: Tidy --- tests/test-org-ql.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/tests/test-org-ql.el b/tests/test-org-ql.el index 605d32a..8085686 100644 --- a/tests/test-org-ql.el +++ b/tests/test-org-ql.el @@ -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"