64 lines
1.9 KiB
Clojure
64 lines
1.9 KiB
Clojure
(ns legacy.status-im.utils.transducers-test
|
|
(:require
|
|
[cljs.test :refer-macros [deftest is testing]]
|
|
[legacy.status-im.utils.transducers :as transducers]))
|
|
|
|
(def preview-call-1
|
|
{:jail-id 1
|
|
:path [:preview]
|
|
:params {:chat-id 1}
|
|
:callback (fn []
|
|
[[:msg-id 1]])})
|
|
|
|
(def preview-call-2
|
|
{:jail-id 1
|
|
:path [:preview]
|
|
:params {:chat-id 1}
|
|
:callback (fn []
|
|
[[:msg-id 2]])})
|
|
|
|
(def jail-calls
|
|
'({:jail-id 1
|
|
:path [:suggestions]
|
|
:params {:arg 0}}
|
|
{:jail-id 1
|
|
:path [:function]
|
|
:params {:sub :a}}
|
|
{:jail-id 1
|
|
:path [:function]
|
|
:params {:sub :b}}
|
|
{:jail-id 1
|
|
:path [:suggestions]
|
|
:params {:arg 1}}
|
|
{:jail-id 1
|
|
:path [:suggestions]
|
|
:params {:arg 2}}
|
|
preview-call-1
|
|
preview-call-2))
|
|
|
|
(deftest last-distinct-by-test
|
|
(testing
|
|
"Elements are removed from input according to provided `compare-fn`,
|
|
when duplicate elements are removed, the last one stays"
|
|
(is (= (sequence (transducers/last-distinct-by (fn [{:keys [jail-id path] :as call}]
|
|
(if (= :suggestions (last path))
|
|
[jail-id path]
|
|
call)))
|
|
jail-calls)
|
|
'({:jail-id 1
|
|
:path [:suggestions]
|
|
:params {:arg 2}}
|
|
{:jail-id 1
|
|
:path [:function]
|
|
:params {:sub :a}}
|
|
{:jail-id 1
|
|
:path [:function]
|
|
:params {:sub :b}}
|
|
preview-call-1
|
|
preview-call-2))))
|
|
(testing "Edge cases with input size `N=0` and `N=1` work as well"
|
|
(is (= (sequence (transducers/last-distinct-by identity) '())
|
|
'()))
|
|
(is (= (sequence (transducers/last-distinct-by identity) '(1))
|
|
'(1)))))
|