diff --git a/up-tests.el b/up-tests.el
index 063db98bbea..2635c7df757 100644
--- 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))))