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

Tests: (org-ql-it) Expand using Buttercup's it

Browse source 
As the implementation of `it' changes, this will change with
it (correctly).
This commit is contained in:
Adam Porter 2023-03-09 00:52:47 -06:00
parent 6c9c0b957a
commit 0304a2c9dc
1 changed files with 10 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -112,20 +112,17 @@ FILENAME should be a file in the \"tests\" directory."
;;;; Macros
(defmacro org-ql-it (description &rest body)
"Expand to two specs, one of which tests with preambles and the other without.
Based on Buttercup macro `it'."
"Expand to two specs, one of which tests with preambles and the other without."
(declare (indent 1) (debug (&define sexp def-body)))
(if body
`(progn
(buttercup-it ,(concat description " (preamble) ")
(lambda ()
(let ((org-ql-use-preamble t))
,@body)))
(buttercup-it ,(concat description " (no preamble)")
(lambda ()
(let ((org-ql-use-preamble nil))
,@body))))
`(buttercup-xit ,description)))
`(progn
(it ,(concat description " (preamble) ")
,(when body
`(let ((org-ql-use-preamble t))
,@body)))
(it ,(concat description " (no preamble) ")
,(when body
`(let ((org-ql-use-preamble nil))
,@body)))) )
(cl-defmacro org-ql-expect (ql-args results &key (buffer 'org-ql-test-buffer))
"Expand to `expect' test form that expects QL-ARGS to equal RESULTS.