first commit

test/cljs/transducerpres/core_test.cljs

@@ -0,0 +1,39 @@
+(ns transducerpres.core-test
+  (:require [cljs.test :refer-macros [is are deftest testing use-fixtures]]
+            [reagent.core :as reagent :refer [atom]]
+            [transducerpres.core :as rc]))
+
+
+(def isClient (not (nil? (try (.-document js/window)
+                              (catch js/Object e nil)))))
+
+(def rflush reagent/flush)
+
+(defn add-test-div [name]
+  (let [doc     js/document
+        body    (.-body js/document)
+        div     (.createElement doc "div")]
+    (.appendChild body div)
+    div))
+
+(defn with-mounted-component [comp f]
+  (when isClient
+    (let [div (add-test-div "_testreagent")]
+      (let [comp (reagent/render-component comp div #(f comp div))]
+        (reagent/unmount-component-at-node div)
+        (reagent/flush)
+        (.removeChild (.-body js/document) div)))))
+
+
+(defn found-in [re div]
+  (let [res (.-innerHTML div)]
+    (if (re-find re res)
+      true
+      (do (println "Not found: " res)
+          false))))
+
+
+(deftest test-home
+  (with-mounted-component (rc/home-page)
+    (fn [c div]
+      (is (found-in #"Welcome to" div)))))

test/cljs/transducerpres/doo_runner.cljs

@@ -0,0 +1,5 @@
+(ns transducerpres.doo-runner
+  (:require [doo.runner :refer-macros [doo-tests]]
+            [transducerpres.core-test]))
+
+(doo-tests 'transducerpres.core-test)