From 670446e2090f23ecbeaf76be5f2880b1630f65d5 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Fri, 5 Feb 2016 18:26:37 +0200
Subject: [PATCH] Add missing test for scale and translate matrix methods.

---
 test/uxbox/util/geom_tests.cljs | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/test/uxbox/util/geom_tests.cljs b/test/uxbox/util/geom_tests.cljs
index c50f351e89..f1d91c33f1 100644
--- 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]))))
+