[1] Some tests for 'tinv' was added.

diff --git a/dynamics/test/math.clj b/dynamics/test/math.clj
index 4bdae0a..c4a7db2 100755 (executable)
--- a/dynamics/test/math.clj
+++ b/dynamics/test/math.clj
@@ -190,6 +190,16 @@
          '[up 16 22]
          )))
 
+(deftest test-tinv
+  (is (= (mt/tinv '[up [up 1 2] [up 3 4]])
+         '[down [down -2 1] [down 3/2 -1/2]]))
+  (is (= (mt/tinv '[up [down 1 2] [down 3 4]])
+         '[up [down -2 1] [down 3/2 -1/2]]))
+  (is (= (mt/tinv '[down [up 1 2] [up 3 4]])
+         '[down [up -2 1] [up 3/2 -1/2]]))
+  (is (= (mt/tinv '[down [down 1 2] [down 3 4]])
+         '[up [up -2 1] [up 3/2 -1/2]])))
+
 (deftest test-partial-val
   (is (= (binding [mt/*dx* 0.5]
            (mt/partial-val (fn [x] (* 4 x))