fix tests and introduce benchmarks

Author: sprocketc

src/renderer/element/handlers.cljs

@@ -632,7 +632,8 @@
 (m/=> add [:-> App map? App])
 (defn add
   [db el]
-  (create (deselect db) (assoc el :selected true)))
+  (-> (deselect db)
+      (create (assoc el :selected true))))
 
 (m/=> boolean-operation [:-> App PathBooleanOperation App])
 (defn boolean-operation

src/renderer/tool/hierarchy.cljs

@@ -13,7 +13,7 @@
 (defmulti snapping-points (fn [db _e] (:tool db)))
 (defmulti activate :tool)
 (defmulti deactivate :tool)
-(defmulti render identity)
+(defmulti render "Renders the tool helpers." identity)
 (defmulti properties "Returns the properties of the tool." identity)
 (defmulti help "Returns the status bar help text." (fn [tool state] [tool state]))
 

test/benchmark_test.cljs

@@ -0,0 +1,38 @@
+(ns benchmark-test
+  (:require
+   [cljs.test :refer-macros [deftest is testing]]
+   [clojure.string :as str]
+   [day8.re-frame.test :as rf-test]
+   [re-frame.core :as rf]
+   [renderer.app.events :as app.e]
+   [renderer.document.events :as document.e]
+   [renderer.element.events :as element.e]))
+
+(defn bench
+  "Returns the elapsed time of the event handling in milliseconds."
+  ([e]
+   (bench e 1))
+  ([e iterations]
+   (let [start (.getTime (js/Date.))
+         _ (dotimes [_ iterations] (rf/dispatch e))
+         end (.getTime (js/Date.))]
+     (- end start))))
+
+(deftest test-pp-str
+  (rf-test/run-test-sync
+   (rf/dispatch [::app.e/initialize-db])
+   (rf/dispatch [::document.e/init])
+
+   (testing "creating elements"
+     (let [points (str/join " " (repeatedly 100 #(rand-int 1000)))]
+       (is (> 1000 (bench [::element.e/add {:tag :polygon
+                                            :attrs {:points points}}] 20)))))
+
+   (testing "selecting elements"
+     (is (> 100 (bench [::element.e/select-all]))))
+
+   (testing "moving elements"
+     (is (> 100 (bench [::element.e/translate [100 100]]))))
+
+   (testing "scaling elements"
+     (is (> 100 (bench [::element.e/scale [100 100]]))))))

test/tool_tests.cljs renamed to test/tool_test.cljs

@@ -1,10 +1,12 @@
-(ns tool-tests
+(ns tool-test
   (:require
    [cljs.test :refer-macros [deftest is]]
    [day8.re-frame.test :as rf-test]
    [re-frame.core :as rf]
    [renderer.app.events :as app.e]
+   [renderer.document.events :as document.e]
    [renderer.tool.events :as e]
+   [renderer.tool.impl.core]
    [renderer.tool.subs :as s]))
 
 (deftest init
@@ -15,7 +17,8 @@
 
 (deftest activate
   (rf-test/run-test-sync
-   (rf/dispatch [::e/initialize-db])
+   (rf/dispatch [::app.e/initialize-db])
+   (rf/dispatch [::document.e/init])
 
    (let [active-tool (rf/subscribe [::s/active])]
      (is (= @active-tool :transform))