masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-06 04:09:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add expand-maximally macro to up-tests.el

Browse source
This commit is contained in:
John Wiegley 2017-12-04 10:30:49 -08:00
parent 026433a8a0
commit 4042b87c72
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
up-tests.el
View file

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