Forgot to add the new test files.

OCamlPro · Apr 7, 2011 · 3459787 · 3459787
1 parent c7b9066
commit 3459787
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 0 deletions.
diff --git a/tests/matrix.ml b/tests/matrix.ml
@@ -0,0 +1,4 @@
+open OUnit
+
+let suite = [
+]
diff --git a/tests/vectors.ml b/tests/vectors.ml
@@ -0,0 +1,19 @@
+open OUnit
+open Numcaml
+
+let one = Math.ones [10]
+
+let test_add () =
+  let x = $(3.3 + one)  in
+  let y = Math.Vector (Array.create 10 (Math.Float 4.3)) in
+  "values match" @? (x=y)
+
+let test_mul () =
+  let x = $(7l * one) in
+  let y = Math.Vector (Array.create 10 (Math.Int32 7l)) in
+  "value match" @? (x=y)
+
+let suite = [
+  "vector_add" >:: test_add;
+  "vector_mul" >:: test_mul;
+]