Added a simple test for macroexpand

2013-10-11 12:03:52 +01:00 · 2013-10-11 12:03:52 +01:00 · 2e60d6b47b
commit 2e60d6b47b
parent a34db9119b
1 changed files with 6 additions and 0 deletions
--- a/tests/native_tests/language.hy
+++ b/tests/native_tests/language.hy
@ -775,7 +775,13 @@
    (.append y x))
  (assert (= y [5])))

+
 (defn test-empty-list []
  "Evaluate an empty list to a []"
  (assert (= () [])))

+
+(defn test-macroexpand []
+   "Test macroexpand on ->"
+   (assert (= (macroexpand '(-> (a b) (x y)))
+              '(x (a b) y))))