From: John Wiegley <johnw@newartisans.com>
Date: Fri, 1 Dec 2017 03:40:54 +0000 (-0800)
Subject: Allow match-expansion to take multiple cases
X-Git-Tag: emacs-29.0.90~1306^2~15^2~211
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfd3194d80;p=emacs.git

Allow match-expansion to take multiple cases
---

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