1 files changed, 14 insertions, 0 deletions

diff --git a/packages/base/src/Numeric/LinearAlgebra/Util.hs b/packages/base/src/Numeric/LinearAlgebra/Util.hs
index 779630f..60079e7 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Util.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Util.hs
@@ -473,3 +473,17 @@ dispShort maxr maxc dec m =
   where
     fmt = printf ("%."++show dec ++"f")
 
+--------------------------------------------------------------------------------
+
+instance Testable (Matrix I) where
+   checkT _ = test
+
+test :: (Bool, IO())
+test = (and ok, print ok)
+  where
+    m  = (3><4) [1..12] :: Matrix I
+    md = fromInt m      :: Matrix Double
+    ok = [ tr m <> m == toInt (tr md <> md)
+         , m <> tr m == toInt (md <> tr md)
+         ]
+