Add expand-maximally macro to up-tests.el

2017-12-04 10:30:49 -08:00
parent 026433a8a0
commit 4042b87c72
1 changed files with 5 additions and 0 deletions
--- 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))))