CLJS-2837: [spec] cat specs should verify value is sequential

Author: mfikes

src/main/cljs/cljs/spec/alpha.cljs

@@ -1248,14 +1248,14 @@
 
     Spec
     (conform* [_ x]
-      (if (c/or (nil? x) (coll? x))
+      (if (c/or (nil? x) (sequential? x))
         (re-conform re (seq x))
         ::invalid))
     (unform* [_ x] (op-unform re x))
     (explain* [_ path via in x]
-      (if (c/or (nil? x) (coll? x))
+      (if (c/or (nil? x) (sequential? x))
         (re-explain path via in re (seq x))
-        [{:path path :pred (op-describe re) :val x :via via :in in}]))
+        [{:path path :pred `(fn [~'%] (c/or (nil? ~'%) (sequential? ~'%))) :val x :via via :in in}]))
     (gen* [_ overrides path rmap]
       (if gfn
         (gfn)

src/test/cljs/cljs/spec_test.cljs

@@ -204,15 +204,15 @@
 
       opt nil nil nil
       opt [] nil nil
-      opt :k ::s/invalid '[{:pred (cljs.spec.alpha/? cljs.core/keyword?), :val :k}]
+      opt :k ::s/invalid '[{:pred (cljs.core/fn [%] (cljs.core/or (cljs.core/nil? %) (cljs.core/sequential? %))), :val :k}]
       opt [:k] :k nil
       opt [:k1 :k2] ::s/invalid '[{:reason "Extra input", :pred (cljs.spec.alpha/? cljs.core/keyword?), :val (:k2)}]
       opt [:k1 :k2 "x"] ::s/invalid '[{:reason "Extra input", :pred (cljs.spec.alpha/? cljs.core/keyword?), :val (:k2 "x")}]
       opt ["a"] ::s/invalid '[{:pred cljs.core/keyword?, :val "a"}]
 
       andre nil nil nil
       andre [] nil nil
-      andre :k ::s/invalid '[{:pred (cljs.spec.alpha/& (cljs.spec.alpha/* cljs.core/keyword?) cljs.spec-test/even-count?), :val :k}]
+      andre :k ::s/invalid '[{:pred (cljs.core/fn [%] (cljs.core/or (cljs.core/nil? %) (cljs.core/sequential? %))), :val :k}]
       andre [:k] ::s/invalid '[{:pred cljs.spec-test/even-count?, :val [:k]}]
       andre [:j :k] [:j :k] nil