From dfd3194d80e9c0ccd4623e47c745debf4028e06f Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 30 Nov 2017 19:40:54 -0800 Subject: [PATCH] Allow match-expansion to take multiple cases --- test/lisp/use-package/use-package-tests.el | 4 ++-- 1 file 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 @@ (use-package-expand-minimally t)) (macroexpand ',form))) -(defmacro match-expansion (form value) +(defmacro match-expansion (form &rest value) `(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. (eval-when-compile -- 2.39.2