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

Add a new rule for plain (apply str ..) and a test.

Browse source
This commit is contained in:
Anthony Grimes 2013-01-25 15:27:43 -06:00
parent 6addc843e0
commit 8424bb2b20
2 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/kibit/rules/misc.clj
View file

@ -16,6 +16,7 @@
;; clojure.string
[(apply str (interpose ?x ?y)) (clojure.string/join ?x ?y)]
[(apply str (reverse ?x)) (clojure.string/reverse ?x)]
[(apply str ?x) (clojure.string/join ?x)]
;; mapcat
[(apply concat (apply map ?x ?y)) (mapcat ?x ?y)]

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

@ -6,6 +6,7 @@
(are [expected-alt-form test-form]
(= expected-alt-form (:alt (kibit/check-expr test-form)))
'(clojure.string/join x y) '(apply str (interpose x y))
'(clojure.string/join x) '(apply str x)
'(clojure.string/reverse x) '(apply str (reverse x))
'(mapcat x y) '(apply concat (apply map x y))
'(mapcat x y) '(apply concat (map x y))