summaryrefslogtreecommitdiff
path: root/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-06-01 18:51:17 +0200
committerAlberto Ruiz <aruiz@um.es>2015-06-01 18:51:17 +0200
commit60dc8245539263899c083b2760310a86b14d367b (patch)
tree0be5e63961bd16aa008dd45b8999932425fa9625 /packages/tests/src/Numeric/LinearAlgebra/Tests.hs
parent221749b4ffd37acaa3e9a76ceaa4ea0909aadb5e (diff)
generic gaussElim, modularTest
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs5
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
386modularTest = utest "modular ops" (fst $ checkT (undefined :: Matrix (F 13)))
387
388--------------------------------------------------------------------------------
389
386indexProp g f x = a1 == g a2 && a2 == a3 && b1 == g b2 && b2 == b3 390indexProp 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 ()