Snippet showing clojure.spec instrumentation with stubbing through deftest

test.clj

(defn assert-valid [spec-check]
  (let [failure (-> spec-check first :failure)]
      (is (nil? failure))))

(deftest manifest
  (let [find-spec (s/fspec :args (s/cat :id ::submission-directory/id)
                           :ret (s/or :found ::submission-directory/submission-directory :not-found nil?))]

    (stest/instrument ['submissions-svr.db.submission-directories/find `submission/manifest-files]
                      {:spec {'submissions-svr.db.submission-directories/find find-spec}
                       :stub #{'submissions-svr.db.submission-directories/find `submission/manifest-files}})

    (assert-valid (stest/check `submission/manifest {:clojure.spec.test.check/opts {:num-tests 50}}))))