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

fix must select

Browse source
This commit is contained in:
Nathan Marz 2016-05-05 14:59:25 -04:00
parent 3602a08e5d
commit 03f6a12baa
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/clj/com/rpl/specter.cljx
View file

@ -284,7 +284,8 @@
must must
[k] [k]
(select* [this structure next-fn] (select* [this structure next-fn]
(next-fn (get structure k))) (if (contains? structure k)
(next-fn (get structure k))))
(transform* [this structure next-fn] (transform* [this structure next-fn]
(if (contains? structure k) (if (contains? structure k)
(assoc structure k (next-fn (get structure k))) (assoc structure k (next-fn (get structure k)))

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

@ -255,6 +255,8 @@
(and (= (s/transform (s/must k1) op m) (and (= (s/transform (s/must k1) op m)
(s/transform (s/keypath k1) op m)) (s/transform (s/keypath k1) op m))
(= (s/transform (s/must k2) op m) m) (= (s/transform (s/must k2) op m) m)
(= (s/select (s/must k1) m) (s/select (s/keypath k1) m))
(empty? (s/select (s/must k2) m))
)))) ))))
(defspec parser-test (defspec parser-test