add tests

Author: sprocketc

deps.edn

@@ -13,7 +13,7 @@
         metosin/malli {:mvn/version "0.16.4"}
         net.mikera/core.matrix {:mvn/version "0.63.0"}
         org.clj-commons/hickory {:mvn/version "0.7.5"}
-        org.slf4j/slf4j-simple {:mvn/version "2.0.16"}
+        org.slf4j/slf4j-nop {:mvn/version "2.0.16"}
         re-frame/re-frame {:mvn/version "1.4.3"}
         re-pressed/re-pressed {:mvn/version "0.3.2"}
         reagent/reagent {:mvn/version "1.2.0"}

test/document_test.cljs

@@ -17,3 +17,45 @@
    (are [v sub] (= v sub)
      "• Untitled-1 - Repath Studio" @(rf/subscribe [::s/title-bar])
      false @(rf/subscribe [::s/active-saved]))))
+
+(deftest close
+  (rf-test/run-test-sync
+   (rf/dispatch [::app.e/initialize-db])
+   (rf/dispatch [::e/init])
+
+   (rf/dispatch [::e/close (:id @(rf/subscribe [::s/active]) false)])
+   (is (not @(rf/subscribe [::s/active])))))
+
+(deftest colors
+  (rf-test/run-test-sync
+   (rf/dispatch [::app.e/initialize-db])
+   (rf/dispatch [::e/init])
+
+   (let [fill (rf/subscribe [::s/fill])
+         stroke (rf/subscribe [::s/stroke])]
+     (is (= @fill "white"))
+     (is (= @stroke "black"))
+
+     (rf/dispatch [::e/swap-colors])
+     (is (= @fill "black"))
+     (is (= @stroke "white"))
+
+     (rf/dispatch [::e/set-attr :fill "red"])
+     (is (= @fill "red")))))
+
+(deftest filters
+  (rf-test/run-test-sync
+   (rf/dispatch [::app.e/initialize-db])
+   (rf/dispatch [::e/init])
+
+   (let [active-filter (rf/subscribe [::s/filter])]
+     (is (not @active-filter))
+
+     (rf/dispatch [::e/toggle-filter :blur])
+     (is (= @active-filter :blur))
+
+     (rf/dispatch [::e/toggle-filter :deuteranopia])
+     (is (= @active-filter :deuteranopia))
+
+     (rf/dispatch [::e/toggle-filter :deuteranopia])
+     (is (not @active-filter)))))

test/element_test.cljs

@@ -30,16 +30,84 @@
      (is (empty? @selected))
 
      (rf/dispatch [::e/select-all])
-     (is (not-empty @selected))
+     (is (= (count @selected) 1))
 
      (rf/dispatch [::e/deselect-all])
      (is (empty? @selected))
 
      (rf/dispatch [::e/add {:tag :rect
-                            :attrs {:x 0 :y 0 :width 100 :height 100}}])
-     (is :rect (-> @selected first :tag))
+                            :attrs {:width 100 :height 100}}])
+     (is (= :rect (-> @selected first :tag)))
 
      (rf/dispatch [::e/add {:tag :rect
-                            :attrs {:x 0 :y 0 :width 100 :height 100}}])
+                            :attrs {:width 100 :height 100}}])
      (rf/dispatch [::e/select-same-tags])
      (is (= (count @selected) 2)))))
+
+(deftest lock
+  (rf-test/run-test-sync
+   (rf/dispatch [::app.e/initialize-db])
+   (rf/dispatch [::document.e/init])
+
+   (let [selected (rf/subscribe [::s/selected])]
+     (rf/dispatch [::e/add {:tag :rect
+                            :attrs {:width 100 :height 100}}])
+     (is (not (-> @selected first :locked)))
+
+     (rf/dispatch [::e/lock])
+     (is (-> @selected first :locked))
+
+     (rf/dispatch [::e/unlock])
+     (is (not (-> @selected first :locked))))))
+
+(deftest attribute
+  (rf-test/run-test-sync
+   (rf/dispatch [::app.e/initialize-db])
+   (rf/dispatch [::document.e/init])
+
+   (let [selected (rf/subscribe [::s/selected])]
+     (rf/dispatch [::e/add {:tag :rect
+                            :attrs {:width 100 :height 100 :fill "white"}}])
+     (is (= (-> @selected first :attrs :fill) "white"))
+
+     (rf/dispatch [::e/set-attr :fill "red"])
+     (is (= (-> @selected first :attrs :fill) "red"))
+
+     (rf/dispatch [::e/preview-attr :fill "yellow"])
+     (is (= (-> @selected first :attrs :fill) "yellow"))
+
+     (rf/dispatch [::e/remove-attr :fill])
+     (is (not (-> @selected first :attrs :fill))))))
+
+(deftest scale
+  (rf-test/run-test-sync
+   (rf/dispatch [::app.e/initialize-db])
+   (rf/dispatch [::document.e/init])
+   (let [selected (rf/subscribe [::s/selected])]
+     (rf/dispatch [::e/add {:tag :rect
+                            :attrs {:width 100 :height 100}}])
+     (rf/dispatch [::e/scale [2 4]])
+     (is (= (-> @selected first :attrs :width) "200"))
+     (is (= (-> @selected first :attrs :height) "400")))))
+
+(deftest translate
+  (rf-test/run-test-sync
+   (rf/dispatch [::app.e/initialize-db])
+   (rf/dispatch [::document.e/init])
+   (let [selected (rf/subscribe [::s/selected])]
+     (rf/dispatch [::e/add {:tag :rect
+                            :attrs {:x 100 :y 100 :width 100 :height 100}}])
+     (rf/dispatch [::e/translate [50 100]])
+     (is (= (-> @selected first :attrs :x) "150"))
+     (is (= (-> @selected first :attrs :y) "200")))))
+
+(deftest place
+  (rf-test/run-test-sync
+   (rf/dispatch [::app.e/initialize-db])
+   (rf/dispatch [::document.e/init])
+   (let [selected (rf/subscribe [::s/selected])]
+     (rf/dispatch [::e/add {:tag :rect
+                            :attrs {:x 100 :y 100 :width 100 :height 100}}])
+     (rf/dispatch [::e/place [100 100]])
+     (is (= (-> @selected first :attrs :x) "50"))
+     (is (= (-> @selected first :attrs :y) "50")))))