blob: bbed66b6b26a9ee2340e43a750db9cf75c1bf7c5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(require 'ert)
(defun examples-to-should-1 (examples)
(let ((actual (car examples))
(expected (cadr (cdr examples))))
`(should (equal ,actual ,expected))))
(defun examples-to-should (examples)
(let (result)
(while examples
(setq result (cons (examples-to-should-1 examples) result))
(setq examples (cddr (cdr examples))))
(nreverse result)))
(defmacro defexamples (cmd &rest examples)
(declare (indent 1))
`(ert-deftest ,cmd ()
,@(examples-to-should examples)))
(defun def-example-group (&rest _)) ; ignore
(provide 'examples-to-tests)
|