diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-01-20 14:17:49 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-01-20 14:17:49 +0000 |
| commit | 887622a8e23d862160489c7f8912c85e86d5d911 (patch) | |
| tree | c70332965d26a9cdaa56f035414913f9c61aac0b /lib/Numeric/LinearAlgebra | |
| parent | 5cd0bbe755c00a3decaef39e008ee36ef5be8d53 (diff) | |
block utest
Diffstat (limited to 'lib/Numeric/LinearAlgebra')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Tests.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 | |||
| 279 | && ident 5 == buildMatrix 5 5 (\(r,c) -> if r==c then 1::Double else 0) | 279 | && ident 5 == buildMatrix 5 5 (\(r,c) -> if r==c then 1::Double else 0) |
| 280 | , utest "rank" $ rank ((2><3)[1,0,0,1,6*eps,0]) == 1 | 280 | , utest "rank" $ rank ((2><3)[1,0,0,1,6*eps,0]) == 1 |
| 281 | && rank ((2><3)[1,0,0,1,7*eps,0]) == 2 | 281 | && rank ((2><3)[1,0,0,1,7*eps,0]) == 2 |
| 282 | , utest "block" $ fromBlocks [[ident 3,0],[0,ident 4]] == (ident 7 :: CM) | ||
| 282 | ] | 283 | ] |
| 283 | return () | 284 | return () |
| 284 | 285 | ||