start adding cljs.js tests

Author: dnolen

src/test/cljs/self_host/test.cljs

@@ -0,0 +1,25 @@
+(ns self-host.test
+  (:require [cljs.test :as test
+             :refer-macros [run-tests deftest testing is async]]
+            [cljs.js :as cljs]))
+
+(defn latch [m f]
+  (let [r (atom 0)]
+    (add-watch r :latch
+      (fn [_ _ o n]
+        (when (== n m) (f))))
+    r))
+
+(defn inc! [r]
+  (swap! r inc))
+
+(def st (cljs/empty-state))
+
+(deftest test-compile-str
+  (async done
+    (let [l (latch 1 done)]
+      (cljs/compile-str st "(+ 1 1)"
+        (fn [{:keys [error value]}]
+          (is (nil? error))
+          (is (= value "(1 + 1);\n"))
+          (inc! l))))))