From 589e6aa47145c9e9ea7af6602ae3a3d46c1a8fcd Mon Sep 17 00:00:00 2001 From: Nathan Marz Date: Fri, 10 Jun 2016 08:09:11 -0400 Subject: [PATCH] added a collected?/DISPENSE test case for transform path --- test/com/rpl/specter/core_test.cljx | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/test/com/rpl/specter/core_test.cljx b/test/com/rpl/specter/core_test.cljx index 666c190..2e7511c 100644 --- a/test/com/rpl/specter/core_test.cljx +++ b/test/com/rpl/specter/core_test.cljx @@ -1238,5 +1238,16 @@ s/DISPENSE ] data) - )) - )) + ))) + (let [data {:active 3 :items [{:id 1 :val 0} {:id 3 :val 11}]}] + (is (= (transform [:items s/ALL (s/selected? :id #(= % 3)) :val] inc data) + (transform [(s/collect-one :active) + :items + s/ALL + (s/collect-one :id) + (collected? [a i] (= a i)) + s/DISPENSE + :val] + inc + data) + ))))