diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r-- | lib/Numeric/LinearAlgebra/Tests.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs index 0df29a8..a44c273 100644 --- a/lib/Numeric/LinearAlgebra/Tests.hs +++ b/lib/Numeric/LinearAlgebra/Tests.hs | |||
@@ -300,6 +300,11 @@ conjuTest m = mapVector conjugate (flatten (trans m)) == flatten (ctrans m) | |||
300 | 300 | ||
301 | --------------------------------------------------------------------- | 301 | --------------------------------------------------------------------- |
302 | 302 | ||
303 | succTest = utest "successive" $ successive_ (<) (fromList [1 :: Double,2,3,4]) == True | ||
304 | && successive_ (<) (fromList [1 :: Double,3,2,4]) == False | ||
305 | |||
306 | --------------------------------------------------------------------- | ||
307 | |||
303 | 308 | ||
304 | -- | All tests must pass with a maximum dimension of about 20 | 309 | -- | All tests must pass with a maximum dimension of about 20 |
305 | -- (some tests may fail with bigger sizes due to precision loss). | 310 | -- (some tests may fail with bigger sizes due to precision loss). |
@@ -466,6 +471,7 @@ runTests n = do | |||
466 | , normsMTest | 471 | , normsMTest |
467 | , sumprodTest | 472 | , sumprodTest |
468 | , chainTest | 473 | , chainTest |
474 | , succTest | ||
469 | ] | 475 | ] |
470 | return () | 476 | return () |
471 | 477 | ||