                                            (if folded? \u25BA \u25BC)
                                            " Testing " (:name tests-by-namespace)))
                             (dom/ul #js {:className (if folded? "hidden" "test-list")}
-                                    (mapv (comp <test-item> #(assoc % :report/filter filter))
+                                    (mapv (comp ui-test-item #(assoc % :report/filter filter))
                                           (:test-items tests-by-namespace))))))))
 
-(def <test-namespace> (om/factory TestNamespace {:keyfn :name}))
+(def ui-test-namespace (om/factory TestNamespace {:keyfn :name}))
 
 (defui Filters
        Object

                     set-filter! (fn [new-filter]
                                   #(om/transact! this `[(~'set-filter {:new-filter ~new-filter})]))]
                 (dom/section #js {:className "test-report"}
                              (<filters> {:report/filter current-filter
                                          :set-filter! set-filter!})
                              (dom/ul #js {:className "test-list"}
                                      (mapv (comp <test-namespace>
                                                  #(assoc % :report/filter current-filter))
                                            (:namespaces test-report-data)))
                              (<test-count> test-report-data)))))

                                      :onClick   (set-filter! :failed)}
                                 "Failed")))))

(def ui-filters (om/factory Filters))

(defn debounce [f interval]
  (let [timeout (atom nil)]
