test/expand_test.clj

@@ -0,0 +1,17 @@
+(ns expand-test
+  (:require [expand :as sut]
+            [clojure.test :as t]))
+
+(t/deftest nearest-test
+  (t/is (= '#{#{a b}}
+           (sut/nearest '#{a b c}
+                        '[#{a} #{a b} #{a d}]))
+        "unambiguous")
+  (t/is (= '#{#{a b} #{a c}}
+           (sut/nearest
+            '#{a b c} '[#{a} #{a b} #{a c}]))
+        "ambiguous")
+  (t/is (= #{}
+           (sut/nearest
+            '#{a b c} '[#{d} #{d e} #{f}]))
+        "undefined"))