You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
517 B
19 lines
517 B
(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) |
|
`(ert-deftest ,cmd () |
|
,@(examples-to-should examples))) |
|
|
|
(provide 'examples-to-tests)
|
|
|