diff options
| -rw-r--r-- | test/lisp/use-package/use-package-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index e27d7f28851..35645fdce82 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el | |||
| @@ -30,9 +30,9 @@ | |||
| 30 | (use-package-expand-minimally t)) | 30 | (use-package-expand-minimally t)) |
| 31 | (macroexpand ',form))) | 31 | (macroexpand ',form))) |
| 32 | 32 | ||
| 33 | (defmacro match-expansion (form value) | 33 | (defmacro match-expansion (form &rest value) |
| 34 | `(should (pcase (expand-minimally ,form) | 34 | `(should (pcase (expand-minimally ,form) |
| 35 | (,value t)))) | 35 | ,@(mapcar #'(lambda (x) (list x t)) value)))) |
| 36 | 36 | ||
| 37 | ;; `cl-flet' does not work for the mocking we do below, while `flet' does. | 37 | ;; `cl-flet' does not work for the mocking we do below, while `flet' does. |
| 38 | (eval-when-compile | 38 | (eval-when-compile |