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