Merge pull request #404 from alejandrodob/coll-support

Add coll? function

Author: thomasmulvaney

pixie/stdlib.pxi

@@ -839,6 +839,7 @@ If further arguments are passed, invokes the method named by symbol, passing the
 (defn set? [v] (instance? PersistentHashSet v))
 (defn map? [v] (satisfies? IMap v))
 (defn fn? [v] (satisfies? IFn v))
+(defn coll? [v] (satisfies? IPersistentCollection v))
 
 (defn indexed? [v] (satisfies? IIndexed v))
 (defn counted? [v] (satisfies? ICounted v))

tests/pixie/tests/test-stdlib.pxi

@@ -304,6 +304,16 @@
   (t/assert= (fn? "foo") false)
   (t/assert= (fn? (let [x 8] (fn [y] (+ x y)))) true))
 
+(t/deftest test-coll?
+  (t/assert= (coll? '()) true)
+  (t/assert= (coll? []) true)
+  (t/assert= (coll? {:foo "bar"}) true)
+  (t/assert= (coll? #{:foo :bar}) true)
+  (t/assert= (coll? #(%)) false)
+  (t/assert= (coll? :foo) false)
+  (t/assert= (coll? "foo") false)
+  (t/assert= (coll? 1) false))
+
 (t/deftest test-macro?
   (t/assert= (macro? and) true)
   (t/assert= (macro? or) true)