martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow match-expansion to take multiple cases

Browse Source
This commit is contained in:
John Wiegley
2017-11-30 19:40:54 -08:00
parent 7a562f10cb
commit dfd3194d80
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/lisp/use-package/use-package-tests.el
View File

@@ -30,9 +30,9 @@
(use-package-expand-minimally t)) (use-package-expand-minimally t))
(macroexpand ',form))) (macroexpand ',form)))
(defmacro match-expansion (form value) (defmacro match-expansion (form &rest value)
`(should (pcase (expand-minimally ,form) `(should (pcase (expand-minimally ,form)
(,value t)))) ,@(mapcar #'(lambda (x) (list x t)) value))))
;; `cl-flet' does not work for the mocking we do below, while `flet' does. ;; `cl-flet' does not work for the mocking we do below, while `flet' does.
(eval-when-compile (eval-when-compile