From 4042b87c720f68d213eb4933c010820de99834d2 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 4 Dec 2017 10:30:49 -0800 Subject: [PATCH] Add expand-maximally macro to up-tests.el --- up-tests.el | 5 +++++ 1 file changed, 5 insertions(+) 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)))) -- 2.39.2