From f05ef81b63e4ee6403433919ce48f223cf0b1e45 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 28 May 2015 09:17:17 +0200 Subject: test int funs --- packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'packages/tests/src/Numeric') 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 () -- cgit v1.2.3