luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add test for recursive navigation with params

Browse source
This commit is contained in:
Nathan Marz 2016-01-30 12:12:26 -08:00
parent 8dd2cb8939
commit c259583e81
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
test/com/rpl/specter/core_test.cljx
View file

@ -614,6 +614,23 @@
))
)
(declarepath map-key-walker [akey])
(providepath map-key-walker
[s/ALL
(s/if-path [s/FIRST (paramsfn [akey] [curr] (= curr akey))]
s/LAST
[s/LAST (s/params-reset map-key-walker)])])
(deftest recursive-params-path-test
(is (= #{1 2 3} (set (s/select (map-key-walker :aaa)
{:a {:aaa 3 :b {:c {:aaa 2} :aaa 1}}}))))
(is (= {:a {:aaa 4 :b {:c {:aaa 3} :aaa 2}}}
(s/transform (map-key-walker :aaa) inc
{:a {:aaa 3 :b {:c {:aaa 2} :aaa 1}}})))
(is (= {:a {:c {:b "X"}}})
(s/setval (map-key-walker :b) "X" {:a {:c {:b {:d 1}}}}))
)
(deftest all-map-test
(is (= {3 3} (s/transform [s/ALL s/FIRST] inc {2 3})))