Fix broken tests

Author: WonderlustKing

src/lang/el-GR.edn

@@ -118,6 +118,7 @@
  {:modify-selection  "Τροποποίηση επιλογής"
   :select-element    "Επιλογή στοιχείου"
   :select-elements   "Επιλογή στοιχείων"
+  :delete-selection  "Διαγραφή επιλεγμένου"
   :toggle            "Εναλλαγή %1"}
 
  :renderer.element.views

src/lang/en-US.edn

@@ -116,8 +116,9 @@
 
  :renderer.element.events
  {:modify-selection  "Modify selection"
-  :select-element    "Select elementssss"
+  :select-element    "Select element"
   :select-elements   "Select elements"
+  :delete-selection  "Delete selection"
   :toggle            "Toggle %1"}
 
  :renderer.element.views

src/renderer/element/events.cljs

@@ -35,7 +35,7 @@
  ::toggle-prop
  (fn [db [_ id k]]
    (-> (element.handlers/update-prop db id k not)
-       (history.handlers/finalize #(t [::toggle (str "Toggle " (name k))] [(name k)])))))
+       (history.handlers/finalize #(t [::toggle "Toggle %1"] [(name k)])))))
 
 (rf/reg-event-db
  ::set-prop
@@ -83,7 +83,7 @@
  ::delete
  (fn [db]
    (-> (element.handlers/delete db)
-       (history.handlers/finalize #(t [::select-element "Delete selection"])))))
+       (history.handlers/finalize #(t [::delete-selection "Delete selection"])))))
 
 (rf/reg-event-db
  ::deselect-all

src/renderer/history/db.cljs

@@ -5,7 +5,7 @@
 
 (def HistoryState
   [:map {:closed true}
-   [:explanation string?]
+   [:explanation [:or fn? string?]]
    [:timestamp number?]
    [:index [:or pos-int? zero?]]
    [:id uuid?]

src/renderer/utils/bounds.cljs

@@ -82,19 +82,22 @@
 (defn ->snapping-points
   [bbox options]
   (let [[min-x min-y max-x max-y] bbox
-        [cx cy] (center bbox)]
+        [cx cy] (center bbox)
+        bounds-corner-txt    (t [::bounds-corner "bounds corner"])
+        bounds-center-txt    (t [::bounds-center "bounds center"])
+        bounds-midpoints-txt (t [::bounds-midpoint "bounds midpoint"])]
     (cond-> []
       (:corners options)
-      (into [(with-meta [min-x min-y] {:label (t [::bounds-corner "bounds corner"])})
-             (with-meta [min-x max-y] {:label (t [::bounds-corner "bounds corner"])})
-             (with-meta [max-x min-y] {:label (t [::bounds-corner "bounds corner"])})
-             (with-meta [max-x max-y] {:label (t [::bounds-corner "bounds corner"])})])
+      (into [(with-meta [min-x min-y] {:label bounds-corner-txt})
+             (with-meta [min-x max-y] {:label bounds-corner-txt})
+             (with-meta [max-x min-y] {:label bounds-corner-txt})
+             (with-meta [max-x max-y] {:label bounds-corner-txt})])
 
       (:centers options)
-      (into [(with-meta [cx cy] {:label (t [::bounds-center "bounds center"])})])
+      (into [(with-meta [cx cy] {:label bounds-center-txt})])
 
       (:midpoints options)
-      (into [(with-meta [min-x cy] {:label (t [::bounds-corner "bounds midpoint"])})
-             (with-meta [max-x cy] {:label (t [::bounds-corner "bounds midpoint"])})
-             (with-meta [cx min-y] {:label (t [::bounds-corner "bounds midpoint"])})
-             (with-meta [cx max-y] {:label (t [::bounds-corner "bounds midpoint"])})]))))
+      (into [(with-meta [min-x cy] {:label bounds-midpoints-txt})
+             (with-meta [max-x cy] {:label bounds-midpoints-txt})
+             (with-meta [cx min-y] {:label bounds-midpoints-txt})
+             (with-meta [cx max-y] {:label bounds-midpoints-txt})]))))

test/utils/attribute_test.cljs

@@ -1,7 +1,8 @@
 (ns utils.attribute-test
   (:require
    [cljs.test :refer-macros [deftest testing are]]
-   [renderer.utils.attribute :as utils.attribute]))
+   [renderer.utils.attribute :as utils.attribute]
+   [renderer.utils.i18n :as i18n]))
 
 (deftest test-str->seq
   (testing "string to sequence conversion"
@@ -34,20 +35,21 @@
       :glyphOrientationHorizontal (utils.attribute/->camel-case :Glyphorientationhorizontal))))
 
 (deftest test-defaults
-  (testing "default tag attributes"
-    (are [x y] (= x y)
-      {:x ""
-       :y ""
-       :rx ""
-       :ry ""
-       :width ""
-       :height ""
-       :fill ""
-       :stroke ""
-       :stroke-dasharray ""
-       :stroke-linejoin ""
-       :style ""
-       :stroke-width ""
-       :opacity ""
-       :id ""
-       :class ""} (utils.attribute/defaults :rect))))
+  (with-redefs [i18n/t (fn [& _] "translation")]
+    (testing "default tag attributes"
+      (are [x y] (= x y)
+        {:x ""
+         :y ""
+         :rx ""
+         :ry ""
+         :width ""
+         :height ""
+         :fill ""
+         :stroke ""
+         :stroke-dasharray ""
+         :stroke-linejoin ""
+         :style ""
+         :stroke-width ""
+         :opacity ""
+         :id ""
+         :class ""} (utils.attribute/defaults :rect)))))

test/utils/bounds_test.cljs

@@ -1,7 +1,8 @@
 (ns utils.bounds-test
   (:require
    [cljs.test :refer-macros [deftest testing are is]]
-   [renderer.utils.bounds :as utils.bounds]))
+   [renderer.utils.bounds :as utils.bounds]
+   [renderer.utils.i18n :as i18n]))
 
 (deftest test-union
   (testing "united bounds"
@@ -38,8 +39,9 @@
     (is (= (utils.bounds/center [0 0 10 10]) [5 5]))))
 
 (deftest test-->snapping-points
-  (testing "snapping points of bounds"
-    (is (= (utils.bounds/->snapping-points [0 0 10 10] #{:corners :centers :midpoints})
-           [[0 0] [0 10] [10 0] [10 10] [5 5] [0 5] [10 5] [5 0] [5 10]]))
+  (with-redefs [i18n/t (fn [& _] "translation")]
+    (testing "snapping points of bounds"
+      (is (= (utils.bounds/->snapping-points [0 0 10 10] #{:corners :centers :midpoints})
+             [[0 0] [0 10] [10 0] [10 10] [5 5] [0 5] [10 5] [5 0] [5 10]]))
 
-    (is (= (utils.bounds/->snapping-points [0 0 10 10] #{}) []))))
+      (is (= (utils.bounds/->snapping-points [0 0 10 10] #{}) [])))))