Really make advanced mode tests work

This commit is contained in:
Dan Holmsand 2014-11-29 23:47:57 +01:00
parent 4c8f08c646
commit 723a1aa379
2 changed files with 9 additions and 17 deletions

View File

@ -4,5 +4,9 @@
(site/start! nil)
(when (exists? js/runtests)
(js/runtests.run-tests))
(defn do-test []
(when (exists? js/runtests)
(js/runtests.run-tests)))
;; Wait for tests to be defined
(r/next-tick do-test)

View File

@ -1,18 +1,15 @@
(ns runtests
(:require [demo]
[testreagent]
(:require [testreagent]
[testcursor]
[testinterop]
[testratom]
[cemerick.cljs.test :as t]
[reagent.core :as reagent :refer [atom]]
[reagent.interop :refer-macros [.' .!]]
[reagent.debug :refer-macros [dbg println]]
;; [demo :as demo]
))
[reagent.debug :refer-macros [dbg println]]))
;; (enable-console-print!)
(enable-console-print!)
(def test-results (atom nil))
@ -40,15 +37,6 @@
[test-output])
[:div {:style test-box} "testing"])))
(defn test-demo []
[:div
[test-output]
[demo/demo]])
(defn ^:export mounttests []
(reagent/render-component (fn [] [test-demo])
(.-body js/document)))
(defn ^:export run-all-tests []
(println "-----------------------------------------")
(try