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

formatting

Browse source
This commit is contained in:
Nathan Marz 2015-04-27 14:49:39 -04:00
parent 98295df9bc
commit 277735dd9b
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
test/clj/com/rpl/specter/core_test.clj
View file

@ -3,7 +3,7 @@
[clojure.test.check.clojure-test] [clojure.test.check.clojure-test]
[com.rpl specter] [com.rpl specter]
[com.rpl.specter test-helpers]) [com.rpl.specter test-helpers])
(:require [clojure.test.check (:require [clojure.test.check
[generators :as gen] [generators :as gen]
[properties :as prop]] [properties :as prop]]
[clojure.test.check :as qc])) [clojure.test.check :as qc]))
@ -24,7 +24,7 @@
(defspec select-all-keyword-filter (defspec select-all-keyword-filter
(for-all+ (for-all+
[kw gen/keyword [kw gen/keyword
v (gen/vector (max-size 5 v (gen/vector (max-size 5
(gen-map-with-keys gen/keyword gen/int kw))) (gen-map-with-keys gen/keyword gen/int kw)))
pred (gen/elements [odd? even?])] pred (gen/elements [odd? even?])]
(= (select [ALL kw pred] v) (= (select [ALL kw pred] v)
@ -33,12 +33,12 @@
(defspec select-pos-extreme-pred (defspec select-pos-extreme-pred
(for-all+ (for-all+
[v (gen/vector gen/int) [v (gen/vector gen/int)
pred (gen/elements [odd? even?]) pred (gen/elements [odd? even?])
pos (gen/elements [[FIRST first] [LAST last]])] pos (gen/elements [[FIRST first] [LAST last]])]
(= (select-one [(filterer pred) (first pos)] v) (= (select-one [(filterer pred) (first pos)] v)
(->> v (filter pred) ((last pos))) (->> v (filter pred) ((last pos)))
))) )))
(defspec select-all-on-map (defspec select-all-on-map
(for-all+ (for-all+
@ -157,7 +157,7 @@
))) )))
(defspec replace-in-test (defspec replace-in-test
(for-all+ (for-all+
[v (gen/vector gen/int)] [v (gen/vector gen/int)]
(let [res (->> v (map (fn [v] (if (even? v) (inc v) v)))) (let [res (->> v (map (fn [v] (if (even? v) (inc v) v))))
user-ret (->> v user-ret (->> v
@ -170,7 +170,7 @@
)))) ))))
(defspec replace-in-custom-merge (defspec replace-in-custom-merge
(for-all+ (for-all+
[v (gen/vector gen/int)] [v (gen/vector gen/int)]
(let [res (->> v (map (fn [v] (if (even? v) (inc v) v)))) (let [res (->> v (map (fn [v] (if (even? v) (inc v) v))))
last-even (->> v (filter even?) last) last-even (->> v (filter even?) last)