diff options
| author | John Wiegley | 2017-11-30 19:40:54 -0800 |
|---|---|---|
| committer | John Wiegley | 2017-11-30 19:40:54 -0800 |
| commit | dfd3194d80e9c0ccd4623e47c745debf4028e06f (patch) | |
| tree | 8a517e3560f841f4a4e608155136820191143695 | |
| parent | 7a562f10cbdcf13e1f37a2aa964f63c7f7cdb1a3 (diff) | |
| download | emacs-dfd3194d80e9c0ccd4623e47c745debf4028e06f.tar.gz emacs-dfd3194d80e9c0ccd4623e47c745debf4028e06f.zip | |
Allow match-expansion to take multiple cases
| -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 |