luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fucking hell

Browse source
This commit is contained in:
Michiel Borkent 2022-10-02 14:10:52 +02:00
parent c96f2b4d07
commit c994bc9d69
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
test-resources/lib_tests/babashka/run_all_libtests.clj
View file

@ -48,15 +48,17 @@
(when (seq namespaces) (when (seq namespaces)
(let [namespaces namespaces] (let [namespaces namespaces]
(doseq [n namespaces] (doseq [n namespaces]
(if (str/starts-with? (str n) "orchestra") (let [orchestra? (str/starts-with? (str n) "orchestra")]
(alter-var-root #'st/spec-checking-fn (constantly ot/spec-checking-fn)) (if orchestra?
(alter-var-root #'st/spec-checking-fn (constantly orig-spec-checking-fn))) (alter-var-root #'st/spec-checking-fn (constantly ot/spec-checking-fn))
(require n) (alter-var-root #'st/spec-checking-fn (constantly orig-spec-checking-fn)))
(filter-vars! (find-ns n) #(-> % meta ((some-fn :skip-bb (when-not orchestra?
:test-check-slow)) not)) (require n)
(let [m (apply t/run-tests [n])] (filter-vars! (find-ns n) #(-> % meta ((some-fn :skip-bb
(swap! status (fn [status] :test-check-slow)) not))
(merge-with + status (dissoc m :type)))))))))) (let [m (apply t/run-tests [n])]
(swap! status (fn [status]
(merge-with + status (dissoc m :type))))))))))))
;; Standard test-runner for libtests ;; Standard test-runner for libtests
(let [lib-tests (edn/read-string (slurp (io/resource "bb-tested-libs.edn"))) (let [lib-tests (edn/read-string (slurp (io/resource "bb-tested-libs.edn")))