     (is (= (rstr [c2]) "<div>foo</div>"))))
 
 (deftest basic-with-let
-  (when isClient
+  (when r/is-client
     (let [n1 (atom 0)
           n2 (atom 0)
           n3 (atom 0)

          (is (= 2 @v1-ran))
          (is (= "val 1 1 0" (.-innerText div)))
          (is (= 2 @ran) "did not run")))
      (is (= runs (running)))
      (is (= 2 @ran)))))

(deftest batched-update-test []
  (when isClient
    (let [ran (r/atom 0)
          v1 (r/atom 0)
          v2 (r/atom 0)

                [c2 {:val @v1}]])]
      (with-mounted-component [c1]
        (fn [c div]
          (r/flush)
          (is (= @ran 2))
          (swap! v2 inc)
          (is (= @ran 2))
          (r/flush)
          (is (= @ran 3))
          (swap! v1 inc)
          (r/flush)
          (is (= @ran 5))
          (swap! v2 inc)
          (swap! v1 inc)
          (r/flush)
          (is (= @ran 7))
          (swap! v1 inc)
          (swap! v1 inc)
          (swap! v2 inc)
          (r/flush)
          (is (= @ran 9)))))))

(deftest init-state-test
  (when r/is-client
    (let [ran (r/atom 0)
          really-simple (fn []
                          (let [this (r/current-component)]
