From: John Wiegley <johnw@newartisans.com>
Date: Mon, 4 Dec 2017 18:30:49 +0000 (-0800)
Subject: Add expand-maximally macro to up-tests.el
X-Git-Tag: emacs-29.0.90~1306^2~15^2~156^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4042b87c720f68d213eb4933c010820de99834d2;p=emacs.git

Add expand-maximally macro to up-tests.el
---

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))))