Added 'repeatedly' rule as suggested in issue #48

clj-commons · Aug 25, 2012 · b085c01 · b085c01
1 parent 37b2a6c
commit b085c01
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/kibit/rules/collections.clj b/src/kibit/rules/collections.clj
@@ -15,5 +15,7 @@
   [(when-not (empty? ?x) . ?y) (when (seq ?x) . ?y)]
 
   ;; set
-  [(into #{} ?coll) (set ?coll)])
+  [(into #{} ?coll) (set ?coll)]
+
+  [(take ?n (repeatedly ?coll)) (repeatedly ?n ?coll)])
 
diff --git a/test/kibit/test/collections.clj b/test/kibit/test/collections.clj
@@ -18,4 +18,5 @@
     '(update-in coll [k] f a b c) '(assoc coll k (f (k coll) a b c))
     '(update-in coll [k] f a b c) '(assoc coll k (f (coll k) a b c))
     '(update-in coll [k] f a b c) '(assoc coll k (f (get coll k) a b c))
-    '(assoc-in coll [k1 k2] v) '(update-in coll [k1 k2] assoc v)))
+    '(assoc-in coll [k1 k2] v) '(update-in coll [k1 k2] assoc v)
+    '(repeatedly 10 (constantly :foo)) '(take 10 (repeatedly (constantly :foo)))))