mirror of
https://github.com/status-im/reagent.git
synced 2025-01-13 13:24:47 +00:00
45b93c8145
This seems to be necessary to avoid trouble with bootstrapped cljs. The old macros are still around, but deprecated.
61 lines
1.7 KiB
Clojure
61 lines
1.7 KiB
Clojure
(ns ^:figwheel-always
|
|
reagenttest.runtests
|
|
(:require [reagenttest.testreagent]
|
|
[reagenttest.testcursor]
|
|
[reagenttest.testinterop]
|
|
[reagenttest.testratom]
|
|
[reagenttest.testratomasync]
|
|
[reagenttest.testtrack]
|
|
[reagenttest.testwithlet]
|
|
[reagenttest.testwrap]
|
|
[cljs.test :as test :include-macros true]
|
|
[reagent.core :as r]
|
|
[reagent.debug :refer-macros [dbg log]]
|
|
[reagentdemo.core :as demo]))
|
|
|
|
(enable-console-print!)
|
|
|
|
(def test-results (r/atom nil))
|
|
|
|
(def test-box-style {:position 'absolute
|
|
:margin-left -35
|
|
:color :#aaa})
|
|
|
|
(defn all-tests []
|
|
#_(test/run-tests 'reagenttest.testratomasync)
|
|
(test/run-all-tests #"reagenttest.test.*"))
|
|
|
|
(defmethod test/report [::test/default :summary] [m]
|
|
;; ClojureScript 2814 doesn't return anything from run-tests
|
|
(reset! test-results m)
|
|
(println "\nRan" (:test m) "tests containing"
|
|
(+ (:pass m) (:fail m) (:error m)) "assertions.")
|
|
(println (:fail m) "failures," (:error m) "errors."))
|
|
|
|
(defn test-output-mini []
|
|
(let [res @test-results]
|
|
[:div {:style test-box-style}
|
|
(if res
|
|
(if (zero? (+ (:fail res) (:error res)))
|
|
"All tests ok"
|
|
[:span "Test failure: "
|
|
(:fail res) " failures, " (:error res) " errors."])
|
|
"testing")]))
|
|
|
|
(defn run-tests []
|
|
(reset! test-results nil)
|
|
(if r/is-client
|
|
(js/setTimeout all-tests 100)
|
|
(all-tests)))
|
|
|
|
(defn init! []
|
|
(when (some? (test/deftest empty-test))
|
|
;; Only run with :load-tests true
|
|
(reset! demo/test-results [#'test-output-mini])
|
|
(run-tests)))
|
|
|
|
(defn reload []
|
|
(demo/init!))
|
|
|
|
(init!)
|