18 lines
457 B
Clojure
18 lines
457 B
Clojure
(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"))
|