Add some tests of macroexpand-all

hylang · Dec 13, 2024 · 8843afc · 8843afc
1 parent eae1b13
commit 8843afc
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/tests/test_macrotools.hy b/tests/test_macrotools.hy
@@ -107,7 +107,17 @@
              'f"{(a 1)}"))
 
   (assert (= (get (macroexpand-all '(require-macro)) -1)
-             '(setv blah 1))))
+             '(setv blah 1)))
+
+  ; Check quoting.
+  (assert (= (macroexpand-all ''(foo-walk))
+             ''(foo-walk)))
+  (assert (= (macroexpand-all `(do (foo-walk)))
+             '(do 42)))
+  (assert (= (macroexpand-all '`(do (foo-walk)))
+             '`(do (foo-walk))))
+  (assert (= (macroexpand-all '`(do ~(foo-walk)))
+             '`(do ~42))))
 
 
 (defn test-map-hyseq []