test int funs

1 files changed, 5 insertions, 0 deletions

diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
index 71c7c16..b138c2b 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
@@ -379,6 +379,10 @@ staticTest = utest "static" (fst $ checkT (undefined :: L 3 5))
 
 --------------------------------------------------------------------------------
 
+intTest = utest "int ops" (fst $ checkT (undefined :: Matrix I))
+
+--------------------------------------------------------------------------------
+
 indexProp g f x = a1 == g a2 && a2 == a3 && b1 == g b2 && b2 == b3
   where
     l = map g (toList (f x))
@@ -567,6 +571,7 @@ runTests n = do
         , convolutionTest
         , sparseTest
         , staticTest
+        , intTest
         ]
     when (errors c + failures c > 0) exitFailure
     return ()