diff options
Diffstat (limited to 'packages/tests')
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 5 |
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 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)) | |||
383 | 383 | ||
384 | -------------------------------------------------------------------------------- | 384 | -------------------------------------------------------------------------------- |
385 | 385 | ||
386 | modularTest = utest "modular ops" (fst $ checkT (undefined :: Matrix (F 13))) | ||
387 | |||
388 | -------------------------------------------------------------------------------- | ||
389 | |||
386 | indexProp g f x = a1 == g a2 && a2 == a3 && b1 == g b2 && b2 == b3 | 390 | indexProp g f x = a1 == g a2 && a2 == a3 && b1 == g b2 && b2 == b3 |
387 | where | 391 | where |
388 | l = map g (toList (f x)) | 392 | l = map g (toList (f x)) |
@@ -572,6 +576,7 @@ runTests n = do | |||
572 | , sparseTest | 576 | , sparseTest |
573 | , staticTest | 577 | , staticTest |
574 | , intTest | 578 | , intTest |
579 | , modularTest | ||
575 | ] | 580 | ] |
576 | when (errors c + failures c > 0) exitFailure | 581 | when (errors c + failures c > 0) exitFailure |
577 | return () | 582 | return () |