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 e27d7f288514c0c3959ec8aeb1b1fd21106929f8..35645fdce820fe4e1ddcb68543bd0a86b8a90d2c 100644 (file)
--- 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