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

test of filterer with parameterization

Browse source
This commit is contained in:
Nathan Marz 2015-09-11 13:18:00 -04:00
parent b1e8c54b5f
commit a71654b21e
1 changed files with 26 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -420,7 +420,7 @@
(= (s/compiled-transform (p k1 k2) pred m1) (s/transform [k1 k2] pred m1)) (= (s/compiled-transform (p k1 k2) pred m1) (s/transform [k1 k2] pred m1))
)))) ))))
(defspec various-orders-comp (defspec various-orders-comp-test
(for-all+ (for-all+
[k1 (limit-size 3 gen/keyword) [k1 (limit-size 3 gen/keyword)
k2 (limit-size 3 gen/keyword) k2 (limit-size 3 gen/keyword)
@ -452,6 +452,31 @@
(apply = (for [p paths] (s/compiled-transform p pred m1))) (apply = (for [p paths] (s/compiled-transform p pred m1)))
)))) ))))
(defspec filterer-param-test
(for-all+
[k gen/keyword
k2 gen/keyword
v (gen/vector
(limit-size 5
(gen-map-with-keys
gen/keyword
gen/int
k
k2
)))
pred (gen/elements [odd? even?])
updater (gen/elements [inc dec])]
(and
(= (s/compiled-select ((s/filterer s/keypath pred) k) v)
(s/compiled-select (s/filterer k pred) v))
(= (s/compiled-transform ((s/comp-paths (s/filterer s/keypath pred) s/ALL k2) k)
updater
v)
(s/compiled-transform (s/comp-paths (s/filterer k pred) s/ALL k2)
updater
v))
)))
;;TODO: test using params path ;;TODO: test using params path
;; using filterer, transformed, selected? with parameterized paths ;; using filterer, transformed, selected? with parameterized paths
;; using cond-path parameterized paths ;; using cond-path parameterized paths