From 887622a8e23d862160489c7f8912c85e86d5d911 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 20 Jan 2010 14:17:49 +0000 Subject: block utest --- lib/Numeric/LinearAlgebra/Tests.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'lib/Numeric/LinearAlgebra') diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs index c1dae4a..89c8297 100644 --- a/lib/Numeric/LinearAlgebra/Tests.hs +++ b/lib/Numeric/LinearAlgebra/Tests.hs @@ -279,6 +279,7 @@ runTests n = do && ident 5 == buildMatrix 5 5 (\(r,c) -> if r==c then 1::Double else 0) , utest "rank" $ rank ((2><3)[1,0,0,1,6*eps,0]) == 1 && rank ((2><3)[1,0,0,1,7*eps,0]) == 2 + , utest "block" $ fromBlocks [[ident 3,0],[0,ident 4]] == (ident 7 :: CM) ] return () -- cgit v1.2.3