yogsototh/kibit
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix tests

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2016-06-13 22:18:40 +02:00
parent 069149343c
commit a07b90a8b1
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
2 changed files with 0 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
test/kibit/test/collections.clj
View file

@ -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)

7
test/kibit/test/misc.clj
View file

@ -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))))