From 632c2c5a8b934fd8b54c8be68d178aa49323077d Mon Sep 17 00:00:00 2001
From: Vivian McPhail <haskell.vivian.mcphail@gmail.com>
Date: Sun, 26 Sep 2010 09:38:35 +0000
Subject: add successive

---
 lib/Numeric/LinearAlgebra/Tests.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lib/Numeric/LinearAlgebra/Tests.hs')

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)
 
 ---------------------------------------------------------------------
 
+succTest = utest "successive" $ successive_ (<) (fromList [1 :: Double,2,3,4]) == True 
+                                && successive_ (<) (fromList [1 :: Double,3,2,4]) == False
+
+---------------------------------------------------------------------
+
 
 -- | All tests must pass with a maximum dimension of about 20
 --  (some tests may fail with bigger sizes due to precision loss).
@@ -466,6 +471,7 @@ runTests n = do
         , normsMTest
         , sumprodTest
         , chainTest
+        , succTest
         ]
     return ()
 
-- 
cgit v1.2.3