Tests pass.
This commit is contained in:
parent
c72d24dcbf
commit
f601f272d4
@ -398,22 +398,19 @@
|
||||
(let [a1 {:properties {:distance 1.5 :label "Bridge heliport"}}
|
||||
a2 {:properties {:distance 0.5 :label "New York Seaport"}}
|
||||
a3 {:properties {:distance 1.0 :label "LAX"}}
|
||||
nearby (fn [config lat lon options]
|
||||
nearby (fn [_config _lat _lon _options]
|
||||
{:features [a1 a2 a3]})]
|
||||
;; This is pretty hacky, but.
|
||||
(set! pelias/nearby nearby)
|
||||
(println (nearby 1 2 3 4))
|
||||
(async
|
||||
done
|
||||
(p/do
|
||||
(testing "closest-airport 1"
|
||||
;; Note that the with-redefs only works for the first
|
||||
;; binding clause in p/let.
|
||||
(with-redefs [pelias/nearby nearby]
|
||||
(p/let [r (advisorycircular/closest-airport {} 0 0)]
|
||||
(is (= r a2)))))
|
||||
(p/let [r (advisorycircular/closest-airport {} 0 0)]
|
||||
(is (= r a2))))
|
||||
(testing "closest-airport with blocklist"
|
||||
(with-redefs [pelias/nearby nearby]
|
||||
(let [conf {:airport {:blocklist ["seaport"]}}]
|
||||
(p/let [r (advisorycircular/closest-airport conf 0 0)]
|
||||
(is (= r a3))))))
|
||||
(done))
|
||||
|
||||
)))
|
||||
(let [conf {:airport {:blocklist ["seaport"]}}]
|
||||
(p/let [r (advisorycircular/closest-airport conf 0 0)]
|
||||
(is (= r a3)))))
|
||||
(done)))))
|
||||
|
Loading…
Reference in New Issue
Block a user