 
 should satisfy
 
-  (fn
-   [%]
-   (< (-> % :x) (-> % :y)))
+  %s
 
 -------------------------
 Detected 1 error
 "
+                 #?(:cljs "(fn [%] (< (-> % :x) (-> % :y)))"
+                    :clj "(fn
+   [%]
+   (< (-> % :x) (-> % :y)))"))
              (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
                (s/explain-str (s/map-of :conformers-test/sorted-pair any?) {[0 1] [1 0]
                                                                             [1 0] [1 0]})))))))

                                                           ::s/invalid)
                                                        name) keyword?))
    (testing "coercion with unformer"
      (is (= "-- Spec failed --------------------

  nil

should satisfy

  (clojure.spec.alpha/conformer
   (fn
    [%]
    (if
     (string? %)
     (keyword %)
     :clojure.spec.alpha/invalid)))

-------------------------
Detected 1 error
"
             (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
               (s/explain-str :conformers-test/coerced-kw nil))))

      (is (= "-- Spec failed --------------------

  [... ... ... 0]
               ^

should satisfy

  (clojure.spec.alpha/conformer
   (fn
    [%]
    (if
     (string? %)
     (keyword %)
     :clojure.spec.alpha/invalid)))

-------------------------
Detected 1 error
"
             (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
               (s/explain-str (s/coll-of :conformers-test/coerced-kw) ["a" "b" "c" 0])))))


                                                              ::s/invalid))
                                              keyword?))
    (testing "coercion"
      (is (= (pf "-- Spec failed --------------------

  nil

should satisfy

  (pf.spec.alpha/conformer
   (fn
    [%%]
    (if
     (string? %%)
     (keyword %%)
     :pf.spec.alpha/invalid)))

-------------------------
Detected 1 error
")
             (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
               (s/explain-str :conformers-test/coerced-kw nil))))

      (is (= (pf "-- Spec failed --------------------

  [... ... ... 0]
               ^

should satisfy

  (pf.spec.alpha/conformer
   (fn
    [%%]
    (if
     (string? %%)
     (keyword %%)
     :pf.spec.alpha/invalid)))

-------------------------
Detected 1 error
")
             (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
               (s/explain-str (s/coll-of :conformers-test/coerced-kw) ["a" "b" "c" 0])))))
    ;; Also not recommended
