Test update for vectorz-clj

mikera · Aug 11, 2019 · 017a56f · 017a56f
1 parent 9f701e4
commit 017a56f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/test/clojure/clojure/core/matrix/test_vectorz.clj b/src/test/clojure/clojure/core/matrix/test_vectorz.clj
@@ -59,6 +59,11 @@
     (set-inner-product! v [[2 0] [0 3]] [10 20] 10.0)
     (is (equals [200 600] v))))
 
+(deftest test-mmul!
+  (let [v (array :vectorz [[2 0] [0 3]])]
+    (mmul! v v) 
+    (is (equals [[4 0] [0 9]] v))))
+
 (deftest test-mutable
   (is (vectorz? (mutable :vectorz [1 2 3])))
   (is (not (vectorz? (mutable [1 2 3]))))