[nongnu] elpa/macrostep aa40d97 076/110: Test expansion within Elisp macro-defining macros

[ELPA Syncer]

branch: elpa/macrostep
commit aa40d97caf00ed7e245f025b1c584c49259fc796
Author: joddie <jonxfield@gmail.com>
Commit: joddie <jonxfield@gmail.com>

    Test expansion within Elisp macro-defining macros
---
 macrostep-test.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/macrostep-test.el b/macrostep-test.el
index 5fc6cbf..8c298f7 100644
--- a/macrostep-test.el
+++ b/macrostep-test.el
@@ -217,6 +217,21 @@
          (eq (get-char-property (point) 'font-lock-face)
              'macrostep-macro-face))))))
 
+(ert-deftest macrostep-expand-macro-defined-macros ()
+  (defmacro with-local-dummy-macro (&rest body)
+    `(cl-macrolet ((dummy (&rest args) `(expansion (of) ,@args)))
+       ,@body))
+  (macrostep-with-text
+   '(with-local-dummy-macro
+     (dummy form (one))
+     (dummy (form two)))
+   (macrostep-should-expand
+    '(dummy form (one))
+    '(expansion (of) form (one)))
+   (macrostep-should-expand
+    '(dummy (form two))
+    '(expansion (of) (form two)))))
+
 (ert-deftest macrostep-expand-in-separate-buffer ()
   (defmacro macrostep-dummy-macro (&rest args)
     `(expansion of ,@args))