working on tests

1 files changed, 29 insertions, 32 deletions

diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs
index 534eb04..7ecf812 100644
--- a/lib/Numeric/LinearAlgebra/Tests.hs
+++ b/lib/Numeric/LinearAlgebra/Tests.hs
@@ -15,8 +15,7 @@ Some tests.
 module Numeric.LinearAlgebra.Tests(
   module Numeric.LinearAlgebra.Tests.Instances,
   module Numeric.LinearAlgebra.Tests.Properties,
-  qCheck,RM,CM, rM,cM, rHer,cHer,rRot,cRot,rSq,cSq,
-    runTests
+  qCheck, runTests
 --, runBigTests
 ) where
 
@@ -24,43 +23,41 @@ import Numeric.LinearAlgebra
 import Numeric.LinearAlgebra.Tests.Instances
 import Numeric.LinearAlgebra.Tests.Properties
 import Test.QuickCheck
-import Debug.Trace
+import Numeric.GSL(setErrorHandlerOff)
 
 qCheck n = check defaultConfig {configSize = const n}
 
-debug x = trace (show x) x
-
-type RM = Matrix Double
-type CM = Matrix (Complex Double)
-
-rM m = m :: RM
-cM m = m :: CM
-
-rHer (Her m) = m :: RM
-cHer (Her m) = m :: CM
-
-rRot (Rot m) = m :: RM
-cRot (Rot m) = m :: CM
-
-rSq  (Sq m)  = m :: RM
-cSq  (Sq m)  = m :: CM
-
-rWC (WC m) = m :: RM
-cWC (WC m) = m :: CM
-
 -- | It runs all the tests.
 runTests :: Int  -- ^ maximum dimension
          -> IO ()
 runTests n = do
-    qCheck n (hermitian . rHer)
-    qCheck n (hermitian . cHer)
-    qCheck n (unitary . rRot)
-    qCheck n (unitary . cRot)
-    qCheck n (wellCond . rWC)
-    qCheck n (wellCond . cWC)
-    --------------------------------
-    qCheck n (luTest . rM)
-    qCheck n (luTest . cM)
+    setErrorHandlerOff
+    let test p = qCheck n p
+    test (luProp    . rM)
+    test (luProp    . cM)
+    test (invProp   . rSqWC)
+    test (invProp   . cSqWC)
+    test (pinvProp  . rM)
+    test (pinvProp  . cM)
+    test (detProp   . cSqWC)
+    test (svdProp1  . rM)
+    test (svdProp1  . cM)
+    test (svdProp2  . rM)
+    test (svdProp2  . cM)
+    test (eigSHProp . rHer)
+    test (eigSHProp . cHer)
+    test (eigProp   . rSq)
+    test (eigProp   . cSq)
+    test (nullspaceProp . rM)
+    test (nullspaceProp . cM)
+    test (qrProp     . rM)
+    test (qrProp     . cM)
+    test (hessProp   . rSq)
+    test (hessProp   . cSq)
+    test (schurProp2 . rSq)
+    test (schurProp1 . cSq)
+    test (cholProp   . rPosDef)
+    test (cholProp   . cPosDef)
 
 -- | Some additional tests on big matrices. They take a few minutes.
 runBigTests :: IO ()