expand test

test/expand_test.clj

@@ -34,7 +34,21 @@
                        '{[x #{a b}] [:lexical x A]
                          [x #{a}] [:lexical x B]}))))
 
-(t/deftest expand-test)
+(defn- expand [stx]
+  (-> #:library {:name '(user)
+                 :declarations [[:import '(primitives+builtins)]
+                                [:begin stx]]}
+      sut/expand-library
+      :library/declarations
+      second
+      second
+      scm/syntax->datum))
+
+(t/deftest expand-test
+  (t/is (= '(lambda (x) x)
+           (expand #scm/stx (#scm/stx lambda
+                             #scm/stx (#scm/stx x)
+                             #scm/stx x)))))
 
 
 ;;; specs