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.
50 lines
1.8 KiB
50 lines
1.8 KiB
;;; examples-to-tests.el --- Extract dash.el's tests from examples.el -*- lexical-binding: t -*- |
|
|
|
;; Copyright (C) 2012-2021 Free Software Foundation, Inc. |
|
|
|
;; This program is free software: you can redistribute it and/or modify |
|
;; it under the terms of the GNU General Public License as published by |
|
;; the Free Software Foundation, either version 3 of the License, or |
|
;; (at your option) any later version. |
|
|
|
;; This program is distributed in the hope that it will be useful, |
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
;; GNU General Public License for more details. |
|
|
|
;; You should have received a copy of the GNU General Public License |
|
;; along with this program. If not, see <https://www.gnu.org/licenses/>. |
|
|
|
;;; Commentary: |
|
|
|
;; FIXME: Lots of duplication with examples-to-info.el. |
|
|
|
;;; Code: |
|
|
|
(require 'ert) |
|
|
|
(defun example-to-should (actual sym expected) |
|
(cond ((eq sym '=>) |
|
`(should (equal ,actual ,expected))) |
|
((eq sym '~>) |
|
`(should (approx-equal ,actual ,expected))) |
|
((not (eq sym '!!>)) |
|
(error "Invalid test case: %S" `(,actual ,sym ,expected))) |
|
((symbolp expected) |
|
;; FIXME: Tests fail on Emacs 24-25 without `eval' for some reason. |
|
`(should-error (eval ',actual ,lexical-binding) :type ',expected)) |
|
(`(should (equal (should-error ,actual) ',expected))))) |
|
|
|
(defmacro defexamples (cmd &rest examples) |
|
(let (tests) |
|
(while examples |
|
(push (example-to-should (pop examples) |
|
(pop examples) |
|
(pop examples)) |
|
tests)) |
|
`(ert-deftest ,cmd () ,@(nreverse tests)))) |
|
|
|
(defalias 'def-example-group #'ignore) |
|
|
|
(provide 'examples-to-tests) |
|
;;; examples-to-tests.el ends here
|
|
|