Add expand-maximally macro to up-tests.el

diff --git a/up-tests.el b/up-tests.el
index 063db98bbea6127aee01996336f27db9b3a10d90..2635c7df757645f1a899c90d3503e90581aae20b 100644 (file)
--- a/up-tests.el
+++ b/up-tests.el
@@ -61,6 +61,11 @@
          (use-package-expand-minimally t))
      (macroexpand-1 ',form)))
 
+(defmacro expand-maximally (form)
+  `(let ((use-package-verbose 'debug)
+         (use-package-expand-minimally nil))
+     (macroexpand-1 ',form)))
+
 (defmacro match-expansion (form &rest value)
   `(should (pcase (expand-minimally ,form)
              ,@(mapcar #'(lambda (x) (list x t)) value))))