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]}))))

test/scm_test.clj

@@ -12,8 +12,20 @@
     (t/is (= 'abc (sut/read "abc")))
     (t/is (= 'truth-nuke (sut/read "truth-nuke"))))
   (t/testing "list"
+    (t/is (= (list) (sut/read "()")))
     (t/is (= (list 1 2 3) (sut/read "(1 2 3)")))
-    (t/is (= (sut/improper-list 1 2 3) (sut/read "(1 2 . 3)")))))
+    (t/is (= (sut/improper-list 1 2 3) (sut/read "(1 2 . 3)"))))
+  (t/testing "number"
+    (t/is (= 123 (sut/read "123")))
+    (t/is (= 123 (sut/read "+123")))
+    (t/is (= -123 (sut/read "-123"))))
+  (t/testing "library"
+    (t/are [s] (thrown?
+                Exception
+                (sut/read s :throw? true
+                          :library? true))
+      "" "()"
+      "(define-library ())")))
 
 (t/deftest read-syntax-test
   (t/is (sut/unresolved? (sut/read-syntax "123")))