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

add INDEXED-VALS tests

Browse source
This commit is contained in:
nathanmarz 2017-08-13 11:50:42 -04:00
parent 1805094df8
commit 43fd7ab2e2
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/clj/com/rpl/specter.cljc
View file

@ -1028,7 +1028,6 @@
(->> s (->> s
(setval (nthpath curri) newe) (setval (nthpath curri) newe)
(setval (index-nav curri) newi) (setval (index-nav curri) newi)
i/spy
))) )))
structure structure
structure structure

9
test/com/rpl/specter/core_test.cljc
View file

@ -1617,6 +1617,15 @@
(is (predand= list? '(6 1 2 3 4 5) (setval (s/index-nav 5) 0 datal))) (is (predand= list? '(6 1 2 3 4 5) (setval (s/index-nav 5) 0 datal)))
)) ))
(deftest indexed-vals-test
(let [data [:a :b :c :d :e]]
(is (= [[0 :a] [1 :b] [2 :c] [3 :d] [4 :e]] (select s/INDEXED-VALS data)))
(is (= [:e :d :c :b :a] (setval [s/INDEXED-VALS s/FIRST] 0 data)))
(is (= [:a :b :e :d :c] (setval [s/INDEXED-VALS s/FIRST] 2 data)))
(is (= [:b :a :d :c :e] (transform [s/INDEXED-VALS s/FIRST odd?] dec data)))
(is (= [:a :b :c :d :e] (transform [s/INDEXED-VALS s/FIRST odd?] inc data)))
))
#?(:clj #?(:clj
(do (do
(defprotocolpath FooPP) (defprotocolpath FooPP)