tests

test/expand_test.clj

@@ -9,6 +9,15 @@
 (t/deftest symtable-for-env-test
   (t/is (s/valid? ::sut/symtable (sut/symtable-for-env sut/scheme-base-env))))
 
+(t/deftest nearest-test
+  (t/is (= [:primitive 'lambda]
+           (sut/lookup ['lambda #{}]
+                       sut/scheme-base-env
+                       (sut/symtable-for-env sut/scheme-base-env))))
+  (t/is (= [#{0 1}]
+           (sut/nearest ['x #{0 1 2}]
+                        [#{0} #{0 1} #{0 3}]))))
+
 (t/deftest expand-test
   (t/testing "unbound symbol"
     (t/is (thrown? Exception (sut/expand 'x))))