test_utils.clj

(ns example.test-utils
  (:require
   [clojure.spec.test.alpha :as spec.test]
   [cljs.test :as test :include-macros true]))

(defmacro deftest-fdef [sym]
  `(test/deftest ~(-> sym name (str "-test") symbol)
     (let [[res#] (spec.test/check (quote ~sym))
           {{result# :result :as ret#} :clojure.spec.test.check/ret} res#]
       (-> ret#
           clojure.pprint/pprint
           println)
      (test/is (true? result#)))))