mirror of https://github.com/status-im/reagent.git
55 lines
1.4 KiB
Clojure
55 lines
1.4 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]]
|
|
[todomvc :as todomvc]))
|
|
|
|
(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 "-----------------------------------------"))
|
|
1000)
|
|
|
|
(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 examples []
|
|
(let [p {:style {:color "#aaa"}}]
|
|
[:div.runtests
|
|
[:div
|
|
[:h2 p "Test results:"]
|
|
[test-output]]
|
|
[:div
|
|
[:h2 p "Simple example:"]
|
|
[simpleexample/simple-example]]
|
|
[:div
|
|
[:h2 p "Todomvc:"]
|
|
[todomvc/todo-app]]]))
|
|
|
|
(defn test-main []
|
|
[examples])
|
|
|
|
(defn ^:export run []
|
|
(cloact/render-component [test-main]
|
|
(.-body js/document)))
|