testing modules ok

2 files changed, 5 insertions, 4 deletions

diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs
index 96280fb..31ba2ff 100644
--- a/lib/Numeric/LinearAlgebra/Tests.hs
+++ b/lib/Numeric/LinearAlgebra/Tests.hs
@@ -13,8 +13,8 @@ Some tests.
 -}
 
 module Numeric.LinearAlgebra.Tests(
-  module Numeric.LinearAlgebra.Tests.Instances,
-  module Numeric.LinearAlgebra.Tests.Properties,
+--  module Numeric.LinearAlgebra.Tests.Instances,
+--  module Numeric.LinearAlgebra.Tests.Properties,
   qCheck, runTests
 --, runBigTests
 ) where
@@ -116,7 +116,8 @@ rotTest = fun (10^5) :~12~: rot 5E4
               where angles = toList $ linspace n (0,1)
 
 
--- | It runs all the tests.
+-- | All tests must pass with a maximum dimension of about 20
+--  (some tests may fail with bigger sizes due to precision loss).
 runTests :: Int  -- ^ maximum dimension
          -> IO ()
 runTests n = do
diff --git a/lib/Numeric/LinearAlgebra/Tests/Properties.hs b/lib/Numeric/LinearAlgebra/Tests/Properties.hs
index 0563e62..566d038 100644
--- a/lib/Numeric/LinearAlgebra/Tests/Properties.hs
+++ b/lib/Numeric/LinearAlgebra/Tests/Properties.hs
@@ -144,6 +144,6 @@ cholProp m = m |~| ctrans c <> c && upperTriang c
     where c = chol m
           pos = positiveDefinite m
 
-expmDiagProp m = expm (logm m) |~| complex m
+expmDiagProp m = expm (logm m) :~ 7 ~: complex m
     where logm m = matFunc log m