Add missing test for scale and translate matrix methods.

2026-02-12 14:42:56 +00:00 · 2016-02-05 18:26:37 +02:00
parent f406ec2621
commit 670446e209
1 changed files with 11 additions and 0 deletions
--- a/test/uxbox/util/geom_tests.cljs
+++ b/test/uxbox/util/geom_tests.cljs
@@ -101,3 +101,14 @@
                 0.17364817766693033
                 0.984807753012208
                 0 0]))))
+
+(t/deftest matrix-scale-test
+  (let [m (-> (gmt/matrix)
+              (gmt/scale 2))]
+    (t/is (= @m [2 0 0 2 0 0]))))
+
+(t/deftest matrix-translate-test
+  (let [m (-> (gmt/matrix)
+              (gmt/translate 2 10))]
+    (t/is (= @m [1 0 0 1 2 10]))))
+