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.
13 lines
333 B
13 lines
333 B
(require 'ert) |
|
(require 'dash) |
|
|
|
(defun example-to-should (example) |
|
(let ((actual (car example)) |
|
(expected (nth 2 example))) |
|
`(should (equal ,actual ,expected)))) |
|
|
|
(defmacro defexamples (cmd &rest examples) |
|
`(ert-deftest ,cmd () |
|
,@(-map 'example-to-should (-partition 3 examples)))) |
|
|
|
(provide 'examples-to-tests)
|
|
|