 (defn make-testreport
   ([] (make-testreport []))
   ([initial-items]
-   {
-    :id            (uuid/uuid-string (uuid/make-random-uuid))
+   {:id            (uuid/uuid-string (uuid/make-random-uuid))
     :report/filter :all
     :summary       ""
     :namespaces    []
     :passed        0
     :failed        0
-    :error         0 }))
+    :error         0}))
 
 
 (defn make-testitem
   [name]
-  {
-   :id           (uuid/uuid-string (uuid/make-random-uuid))
+  {:id           (uuid/uuid-string (uuid/make-random-uuid))
    :name         name
    :status       :pending
    :test-items   []
-   :test-results [] })
+   :test-results []})
 
 (defn make-manual [name] (make-testitem (str name " (MANUAL TEST)")))
 

  [target]
  (let [state (atom {:top (make-testreport)
                     :report/filter :all
                     :folded/namespaces #{}
                     :time (js/Date.)})]
    (map->TestSuite {:app-state      state
                     :reconciler     (om/reconciler {:state state :parser test-parser})

                                       (dom/a #js {:className (if (= current-filter :failed) "selected" "")
                                                   :onClick   #(om/transact! this '[(filter-failed)])}
                                              "Failed"))
                              (dom/ul #js {:className "test-list"}
                                      (mapv (comp test-namespace
                                                  #(assoc % :report/filter current-filter))
                                            (:namespaces test-report-data)))
                              ;TODO: move to defui test-count
                              (let [rollup-stats (reduce (fn [acc item]
                                                           (let [counts [(:passed item) (:failed item) (:error item)
                                                                         (+ (:passed item) (:failed item) (:error item))]]
