test/scm_test.clj

@@ -25,7 +25,20 @@
                 (sut/read s :throw? true
                           :library? true))
       "" "()"
-      "(define-library ())")))
+      "(define-library ())"
+      ;; broken
+      #_"(define-library (blah -123))")
+    (t/is (= '#:library
+             {:name (my cool lib)
+              :declarations
+              ([:import (scheme base)]
+               [:export square]
+               [:begin (define (square n) (* n n))])}
+             (sut/read "(define-library (my cool lib)
+                          (import (scheme base))
+                          (export square)
+                          (begin (define (square n) (* n n))))"
+                       :library? true)))))
 
 (t/deftest read-syntax-test
   (t/is (sut/unresolved? (sut/read-syntax "123")))