CLJS-2846: [spec] s/tuple explain-data :pred problem

Author: mfikes

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

@@ -617,7 +617,7 @@
        (explain* [_ path via in x]
          (cond
            (not (vector? x))
-           [{:path path :pred 'vector? :val x :via via :in in}]
+           [{:path path :pred `vector? :val x :via via :in in}]
 
            (not= (count x) (count preds))
            [{:path path :pred `(= (count ~'%) ~(count preds)) :val x :via via :in in}]

src/test/cljs/cljs/spec_test.cljs

@@ -358,6 +358,12 @@
           (map (comp vec sort keys first))
           (into #{})))))
 
+(deftest tuple-explain-pred
+  (are [val expected]
+    (= expected (-> (s/explain-data (s/tuple int?) val) ::s/problems first :pred))
+    :a 'cljs.core/vector?
+    [] '(cljs.core/= (cljs.core/count %) 1)))
+
 (s/fdef foo.bar/cljs-2275
   :args (s/cat :k keyword?)
   :ret  string?)