2020-04-30 14:44:17 +00:00
|
|
|
(ns status-im.utils.transducers-test
|
2017-10-24 10:51:32 +00:00
|
|
|
(:require [cljs.test :refer-macros [deftest is testing]]
|
2018-07-23 12:14:06 +00:00
|
|
|
[status-im.utils.transducers :as transducers]))
|
2017-10-24 10:51:32 +00:00
|
|
|
|
2020-05-05 14:18:23 +00:00
|
|
|
(def preview-call-1
|
2017-10-24 10:51:32 +00:00
|
|
|
{:jail-id 1
|
|
|
|
:path [:preview]
|
|
|
|
:params {:chat-id 1}
|
|
|
|
:callback (fn []
|
|
|
|
[[:msg-id 1]])})
|
|
|
|
|
2020-05-05 14:18:23 +00:00
|
|
|
(def preview-call-2
|
2017-10-24 10:51:32 +00:00
|
|
|
{:jail-id 1
|
|
|
|
:path [:preview]
|
|
|
|
:params {:chat-id 1}
|
|
|
|
:callback (fn []
|
|
|
|
[[:msg-id 2]])})
|
|
|
|
|
2020-05-05 14:18:23 +00:00
|
|
|
(def jail-calls
|
2017-10-24 10:51:32 +00:00
|
|
|
'({: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"
|
2018-07-23 12:14:06 +00:00
|
|
|
(is (= (sequence (transducers/last-distinct-by (fn [{:keys [jail-id path] :as call}]
|
|
|
|
(if (= :suggestions (last path))
|
|
|
|
[jail-id path]
|
|
|
|
call)))
|
|
|
|
jail-calls)
|
2017-10-24 10:51:32 +00:00
|
|
|
'({: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)))))
|