diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r-- | lib/Numeric/LinearAlgebra/Tests.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs index 4495396..bf29ee9 100644 --- a/lib/Numeric/LinearAlgebra/Tests.hs +++ b/lib/Numeric/LinearAlgebra/Tests.hs | |||
@@ -243,6 +243,11 @@ runTests n = do | |||
243 | , rootFindingTest | 243 | , rootFindingTest |
244 | , utest "randomGaussian" randomTestGaussian | 244 | , utest "randomGaussian" randomTestGaussian |
245 | , utest "randomUniform" randomTestUniform | 245 | , utest "randomUniform" randomTestUniform |
246 | , utest "buildVector/Matrix" $ | ||
247 | comp (10 |> [0::Double ..]) == buildVector 10 fromIntegral | ||
248 | && ident 5 == buildMatrix 5 5 (\(r,c) -> if r==c then 1::Double else 0) | ||
249 | , utest "rank" $ rank ((2><3)[1,0,0,1,6*eps,0]) == 1 | ||
250 | && rank ((2><3)[1,0,0,1,7*eps,0]) == 2 | ||
246 | ] | 251 | ] |
247 | return () | 252 | return () |
248 | 253 | ||