 (defn my-minus [x y]
   (- x y))
 
-;; FIXME: support fspec
-#_(deftest fspec-fn-test
-  (testing "invalid ret"
-    (is (= (pf "-- Function spec failed -----------
-
-  expound.alpha-test/my-minus
-
-failed spec. Function arguments and return value
-
-  {:args {:x 0, :y 0}, :ret 0}
-
-should satisfy
-
-  %s
-
--------------------------
-Detected 1 error\n"
-
-               #?(:clj
-                  "(fn
-   [%]
-   (< (:ret %) (-> % :args :x)))"
-                  :cljs "(fn [%] (< (:ret %) (-> % :args :x)))"))
-           (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
-             (until-unsuccessful #(s/explain-str :fspec-fn-test/minus my-minus)))))
-
-    (is (= (pf "-- Function spec failed -----------
-
-  [expound.alpha-test/my-minus]
-   ^^^^^^^^^^^^^^^^^^^^^^^^^^^
-
-failed spec. Function arguments and return value
-
-  {:args {:x 0, :y 0}, :ret 0}
-
-should satisfy
-
-  %s
-
--------------------------
-Detected 1 error\n"
-               #?(:clj
-                  "(fn
-   [%]
-   (< (:ret %) (-> % :args :x)))"
-                  :cljs "(fn [%] (< (:ret %) (-> % :args :x)))"))
-           (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
-             (until-unsuccessful #(s/explain-str (s/coll-of :fspec-fn-test/minus) [my-minus])))))))
-
-;; FIXME: support fspec
-#_(deftest ifn-fspec-test
-  (testing "keyword ifn / ret failure"
-    (is (= "-- Function spec failed -----------
-
-  [:foo]
-   ^^^^
-
-returned an invalid value
-
-  nil
-
-should satisfy
-
-  int?
-
--------------------------
-Detected 1 error\n"
-           (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
-             (until-unsuccessful #(s/explain-str (s/coll-of (s/fspec :args (s/cat :x int?) :ret int?))
-                                                 [:foo])))))
-    (testing "set ifn / ret failure"
-      (is (= "-- Function spec failed -----------
-
-  [#{}]
-   ^^^
-
-returned an invalid value
-
-  nil
-
-should satisfy
-
-  int?
-
--------------------------
-Detected 1 error\n"
-             (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
-               (until-unsuccessful #(s/explain-str (s/coll-of (s/fspec :args (s/cat :x int?) :ret int?))
-                                                   [#{}])))))))
-  #?(:clj
-     (testing "vector ifn / exception failure"
-       (is (= "-- Exception ----------------------
-
-  [[]]
-   ^^
-
-threw exception
-
-  nil
-
-with args:
-
-  0
-
--------------------------
-Detected 1 error\n"
-              (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
-                (until-unsuccessful #(s/explain-str (s/coll-of (s/fspec :args (s/cat :x int?) :ret int?))
-                                                    [[]]))))))))
-
 (defmulti pet :pet/type)
 (defmethod pet :dog [_]
   (s/keys))

-------------------------
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]})))))))

    (is (= "hello"
           (s/assert :test-assert/name "hello"))))
  (testing "assertion fails"
           (try
         (binding [s/*explain-out* expound/printer]
           (s/assert :test-assert/name :hello))
         (catch Exception e
