          (ansi/color (count problems) :footer)
          (ansi/color (if (= 1 (count problems)) "error" "errors") :footer)))))))
 
-;; TODO - move this up to top
 (defn minimal-fspec [form]
   (let [fspec-sp (s/cat
                   :sym qualified-symbol?

          (printer/indent (str (s/form (:args (:spec check-result)))))
          "\n"))

              ;; TODO - implement
       (= :no-args-spec failure-reason)
       (str
        "Failed to check function.\n\n"

  (let [{:keys [sym spec failure]} check-result
        ret #?(:clj (:clojure.spec.test.check/ret check-result)
               :cljs (:clojure.test.check/ret check-result))
        bad-args (first (:fail ret))
        explain-data (ex-data failure)
        failure-reason (::s/failure explain-data)]
    (str
     ;; CLJS does not contain symbol if function is undefined
     (if sym
