test/expand_test.clj

@@ -15,3 +15,19 @@
            (sut/nearest
             '#{a b c} '[#{d} #{d e} #{f}]))
         "undefined"))
+
+(t/deftest lookup-test
+  (t/is (= [:primitive 'lambda]
+           (sut/lookup #scm/stx [lambda #{}]
+                       {[:global 'lambda] [:primitive 'lambda]}
+                       {['lambda #{}] [:global 'lambda]})))
+  (t/is (= [:primitive 'lambda]
+           (sut/lookup #scm/stx [lambda #{a b c}]
+                       {[:global 'lambda] [:primitive 'lambda]}
+                       {['lambda #{}] [:global 'lambda]})))
+  (t/is (= [:var]
+           (sut/lookup #scm/stx [x #{a b c}]
+                       '{[:lexical x A] [:var]
+                         [:lexical x B] [:primitive lambda]}
+                       '{[x #{a b}] [:lexical x A]
+                         [x #{a}] [:lexical x B]}))))