silly.cljs

(ns example.silly
  (:require
   [clojure.spec.alpha :as spec]))

(spec/def ::integer int?)

(defn adder [a b]
  (+ a b))

(spec/fdef adder
  :args (spec/cat :a ::integer :b ::integer)
  :ret ::integer)

silly_test.cljs

(ns example.silly-test
  (:require-macros
   [inferno.test-utils :refer [deftest-fdef]]))

(deftest-fdef example.silly/adder)

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#)))))