                     :clj "(fn
    [%]
    (< (-> % :x) (-> % :y)))"))
-             (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
-               (s/explain-str (s/map-of keyword? :conformers-test/sorted-pair) {:a [1 0]}))))
+             (expound/expound-str (s/map-of keyword? :conformers-test/sorted-pair) {:a [1 0]} {:print-specs? false})))
       (is (= (pf "-- Spec failed --------------------
 
   [... \"a\"]


-------------------------
Detected 3 errors\n")
         (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
           (s/explain-str :keys-spec/map-spec-2 {:foo 1.2
                                                 :bar 123
                                                 :qux false}))))

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

<CYAN>-------------------------<NONE>
<CYAN>Detected<NONE> <CYAN>1<NONE> <CYAN>error<NONE>
")
         (readable-ansi (expound/expound-str :colorized-output/strings ["" :a ""] {:theme :figwheel-theme})))))

(s/def ::spec-name (s/with-gen
                     qualified-keyword?
