mirror of https://github.com/status-im/reagent.git
50 lines
1.3 KiB
Clojure
50 lines
1.3 KiB
Clojure
|
|
(ns runtests
|
|
(:require-macros [cemerick.cljs.test
|
|
:refer (is deftest with-test run-tests testing)]
|
|
[cloact.debug :refer [dbg println]])
|
|
(:require [cemerick.cljs.test :as t]
|
|
[cloact.core :as cloact :refer [atom]]))
|
|
|
|
(defn ^:export console-print [x]
|
|
(when (not= x "\n")
|
|
(println x)))
|
|
|
|
(set-print-fn! console-print)
|
|
|
|
(def test-results (atom nil))
|
|
|
|
(js/setTimeout
|
|
(fn []
|
|
(println "-----------------------------------------")
|
|
(reset! test-results (t/run-all-tests))
|
|
(println "-----------------------------------------"))
|
|
(if cloact/is-client 1000 0))
|
|
|
|
(defn test-output []
|
|
(let [res @test-results]
|
|
[:div
|
|
(if-not res
|
|
[:div "waiting for tests to run"]
|
|
[:div
|
|
[:p (str "Ran " (:test res) " tests containing "
|
|
(+ (:pass res) (:fail res) (:error res))
|
|
" assertions.")]
|
|
[:p (:fail res) " failues, " (:error res) " errors."]])]))
|
|
|
|
(defn test-output-mini []
|
|
(let [res @test-results]
|
|
(if res
|
|
(if (zero? (+ (:fail res) (:error res)))
|
|
[:div "Tests ok"]
|
|
[test-output])
|
|
[:div "."])))
|
|
|
|
(defn test-demo []
|
|
[:div
|
|
[test-output]
|
|
[demo/demo]])
|
|
|
|
(defn ^:export mounttests []
|
|
(cloact/render-component [test-demo] (.-body js/document)))
|