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")))