From 60dc8245539263899c083b2760310a86b14d367b Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Mon, 1 Jun 2015 18:51:17 +0200 Subject: generic gaussElim, modularTest --- 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 b138c2b..2be75de 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs @@ -383,6 +383,10 @@ intTest = utest "int ops" (fst $ checkT (undefined :: Matrix I)) -------------------------------------------------------------------------------- +modularTest = utest "modular ops" (fst $ checkT (undefined :: Matrix (F 13))) + +-------------------------------------------------------------------------------- + indexProp g f x = a1 == g a2 && a2 == a3 && b1 == g b2 && b2 == b3 where l = map g (toList (f x)) @@ -572,6 +576,7 @@ runTests n = do , sparseTest , staticTest , intTest + , modularTest ] when (errors c + failures c > 0) exitFailure return () -- cgit v1.2.3