Remove unnecessary whitespace from tests
This commit is contained in:
parent
dd0471ee29
commit
44e0b7383c
|
@ -15,19 +15,19 @@
|
||||||
|
|
||||||
(deftest trim-v
|
(deftest trim-v
|
||||||
(let [handler (fn [db vect] vect)]
|
(let [handler (fn [db vect] vect)]
|
||||||
(is (= (handler nil [:a :b :c])
|
(is (= (handler nil [:a :b :c])
|
||||||
[:a :b :c]))
|
[:a :b :c]))
|
||||||
(is (= ((middleware/trim-v handler) nil [:a :b :c])
|
(is (= ((middleware/trim-v handler) nil [:a :b :c])
|
||||||
[:b :c]))))
|
[:b :c]))))
|
||||||
|
|
||||||
(deftest path
|
(deftest path
|
||||||
(let [db {:a true}
|
(let [db {:a true}
|
||||||
handler (fn
|
handler (fn
|
||||||
[a [_]]
|
[a [_]]
|
||||||
(not a))]
|
(not a))]
|
||||||
(let [new-db (((middleware/path [:a])
|
(let [new-db (((middleware/path [:a])
|
||||||
handler) db [nil])]
|
handler) db [nil])]
|
||||||
(is (= (:a new-db)
|
(is (= (:a new-db)
|
||||||
false)))))
|
false)))))
|
||||||
|
|
||||||
|
|
||||||
|
@ -38,4 +38,4 @@
|
||||||
(is (= (wrapped {:a 0 :b 2} 0) ;; no change in 'a'
|
(is (= (wrapped {:a 0 :b 2} 0) ;; no change in 'a'
|
||||||
{:a 0 :b 2}))
|
{:a 0 :b 2}))
|
||||||
(is (= (wrapped {:a 4 :b 2} 0) ;; 'a' changed to 0
|
(is (= (wrapped {:a 4 :b 2} 0) ;; 'a' changed to 0
|
||||||
{:c 2 :a 0 :b 2})))) ;; 'c' is a + b
|
{:c 2 :a 0 :b 2})))) ;; 'c' is a + b
|
||||||
|
|
Loading…
Reference in New Issue