fix tests
This commit is contained in:
parent
069149343c
commit
a07b90a8b1
2 changed files with 0 additions and 10 deletions
|
@ -5,9 +5,6 @@
|
||||||
(deftest collections-are
|
(deftest collections-are
|
||||||
(are [expected-alt-form test-form]
|
(are [expected-alt-form test-form]
|
||||||
(= expected-alt-form (:alt (kibit/check-expr test-form)))
|
(= expected-alt-form (:alt (kibit/check-expr test-form)))
|
||||||
'(seq a) '(not (empty? a))
|
|
||||||
'(when (seq a) b) '(when-not (empty? a) b)
|
|
||||||
'(when (seq a) b) '(when (not (empty? a)) b)
|
|
||||||
'(vector a) '(conj [] a)
|
'(vector a) '(conj [] a)
|
||||||
'(vector a b) '(conj [] a b)
|
'(vector a b) '(conj [] a b)
|
||||||
'(vec coll) '(into [] coll)
|
'(vec coll) '(into [] coll)
|
||||||
|
|
|
@ -21,7 +21,6 @@
|
||||||
'(mapcat x y) '(apply concat (apply map x y))
|
'(mapcat x y) '(apply concat (apply map x y))
|
||||||
'(mapcat x y) '(apply concat (map x y))
|
'(mapcat x y) '(apply concat (map x y))
|
||||||
'(remove pred coll) '(filter (complement pred) coll)
|
'(remove pred coll) '(filter (complement pred) coll)
|
||||||
'(remove empty? coll) '(filter seq coll)
|
|
||||||
'(remove pred coll) '(filter #(not (pred %)) coll)
|
'(remove pred coll) '(filter #(not (pred %)) coll)
|
||||||
'(remove pred coll) '(filter (fn [x] (not (pred x))) coll)
|
'(remove pred coll) '(filter (fn [x] (not (pred x))) coll)
|
||||||
'(ffirst coll) '(first (first coll))
|
'(ffirst coll) '(first (first coll))
|
||||||
|
@ -35,12 +34,6 @@
|
||||||
'(.method obj args) '(. obj method args)
|
'(.method obj args) '(. obj method args)
|
||||||
'(.method obj args) '(. obj (method args))
|
'(.method obj args) '(. obj (method args))
|
||||||
'(Klass/staticMethod args) '(. Klass staticMethod args)
|
'(Klass/staticMethod args) '(. Klass staticMethod args)
|
||||||
'(form arg) '(-> arg form)
|
|
||||||
'(:form arg) '(-> arg :form)
|
|
||||||
'(first-of-form arg rest-of-form) '(-> arg (first-of-form rest-of-form))
|
|
||||||
'(form arg) '(->> arg form)
|
|
||||||
'(:form arg) '(->> arg :form)
|
|
||||||
'(first-of-form rest-of-form arg) '(->> arg (first-of-form rest-of-form))
|
|
||||||
'(not-any? pred coll) '(not (some pred coll))
|
'(not-any? pred coll) '(not (some pred coll))
|
||||||
'(vary-meta arg f) '(with-meta arg (f (meta arg)))
|
'(vary-meta arg f) '(with-meta arg (f (meta arg)))
|
||||||
'(vary-meta arg f :a :b :c) '(with-meta arg (f (meta arg) :a :b :c))))
|
'(vary-meta arg f :a :b :c) '(with-meta arg (f (meta arg) :a :b :c))))
|
||||||
|
|
Loading…
Reference in a new issue