enhance tests

Author: sprocketc

test/bounds_test.cljs

@@ -1,34 +1,37 @@
 (ns bounds-test
   (:require
-   [cljs.test :refer-macros [deftest testing is]]
+   [cljs.test :refer-macros [deftest testing are is]]
    [renderer.utils.bounds :as bounds]))
 
 (deftest test-union
   (testing "united bounds"
-    (is (= (bounds/union [0 0 10 10] [11 11 20 20]) [0 0 20 20]))
-    (is (= (bounds/union [0 0 10 10] [9 9 20 20]) [0 0 20 20]))
-    (is (= (bounds/union [11 11 11 11] [0 0 0 0]) [0 0 11 11]))))
-
+    (are [x y] (= x y)
+      [0 0 20 20] (bounds/union [0 0 10 10] [11 11 20 20])
+      [0 0 20 20] (bounds/union [0 0 10 10] [9 9 20 20])
+      [0 0 11 11] (bounds/union [11 11 11 11] [0 0 0 0]))))
 
 (deftest test-intersect?
   (testing "bounds are intesrecting"
-    (is (= (bounds/intersect? [0 0 10 10] [11 11 20 20]) false))
-    (is (= (bounds/intersect? [0 0 10 10] [9 9 20 20]) true))
-    (is (= (bounds/intersect? [0 0 10 10] [10 10 11 11]) true))))
+    (are [x y] (= x y)
+      false (bounds/intersect? [0 0 10 10] [11 11 20 20])
+      true (bounds/intersect? [0 0 10 10] [9 9 20 20])
+      true (bounds/intersect? [0 0 10 10] [10 10 11 11]))))
 
 (deftest test-contained?
   (testing "bounds are contained"
-    (is (= (bounds/contained? [0 0 10 10] [0 0 10 10]) false))
-    (is (= (bounds/contained? [5 5 10 10] [0 0 20 20]) true))
-    (is (= (bounds/contained? [0 0 10 10] [1 1 10 10]) false))))
+    (are [x y] (= x y)
+      false (bounds/contained? [0 0 10 10] [0 0 10 10])
+      true (bounds/contained? [5 5 10 10] [0 0 20 20])
+      false (bounds/contained? [0 0 10 10] [1 1 10 10]))))
 
 (deftest test-contain-point?
   (testing "bounds contain point"
-    (is (= (bounds/contain-point? [0 0 10 10] [0 0]) true))
-    (is (= (bounds/contain-point? [0 0 10 10] [5 5]) true))
-    (is (= (bounds/contain-point? [0 0 10 10] [10 10]) true))
-    (is (= (bounds/contain-point? [0 0 10 10] [-5 5]) false))
-    (is (= (bounds/contain-point? [0 0 10 10] [5 -5]) false))))
+    (are [x y] (= x y)
+      true (bounds/contain-point? [0 0 10 10] [0 0])
+      true (bounds/contain-point? [0 0 10 10] [5 5])
+      true (bounds/contain-point? [0 0 10 10] [10 10])
+      false (bounds/contain-point? [0 0 10 10] [-5 5])
+      false (bounds/contain-point? [0 0 10 10] [5 -5]))))
 
 (deftest test-center
   (testing "center of bounds"

test/element_test.cljs

@@ -0,0 +1,17 @@
+(ns element-test
+  (:require
+   [cljs.test :refer-macros [deftest testing are]]
+   [renderer.tool.core]
+   [renderer.utils.element :as element]))
+
+(deftest test-root?
+  (testing "is root element"
+    (are [x y] (= x y)
+      true (element/root? {:type :element :tag :canvas})
+      false (element/root? {:type :element :tag :rect}))))
+
+(deftest test-supported?
+  (testing "supported elements"
+    (are [x y] (= x y)
+      true (element/supported? {:type :element :tag :rect})
+      false (element/supported? {:type :element :tag :foo}))))