                      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
+                              (ui-filters {:report/filter current-filter
                                           :set-filter! set-filter!})
                               (dom/ul #js {:className "test-list"}
-                                      (mapv (comp <test-namespace>
+                                      (mapv (comp ui-test-namespace
                                                   #(assoc % :report/filter current-filter))
                                             (:namespaces test-report-data)))
-                              (<test-count> test-report-data)))))
+                              (ui-test-count test-report-data)))))

                                  (dom/span #js {:className (impl/itemclass (:status test-item-data))}
                                            (:name test-item-data))
                                  (dom/ul #js {:className "test-list"}
                                          (mapv <test-result>
                                                (:test-results test-item-data)))
                                  (dom/ul #js {:className "test-list"}
                                          (mapv (comp <test-item> #(assoc % :report/filter filter))
                                                (:test-items test-item-data))))))))

(def <test-item> (om/factory TestItem {:keyfn :id}))

(defui TestNamespace
       Object

                                             (dom/div #js {:className (if folded? "hidden" "stack-trace")}
                                                      stack))))))))

(def ui-result-line (om/factory ResultLine))

(defui TestResult
       Object
       (render [this]
               (let [{:keys [message actual expected stack]} (om/props this)]
                 (->> (dom/tbody nil
                                 (ui-result-line {:title "Actual"
                                                 :value actual
                                                 :stack stack})
                                 (ui-result-line {:title "Expected"
                                                 :value (or expected "")}))
                      (dom/table nil)
                      (dom/div nil (when message (dom/h3 nil message)))
                      (dom/li nil)))))

(def ui-test-result (om/factory TestResult {:keyfn :id}))

(declare ui-test-item)

(defui TestItem
       Object
