From a339794105f1e3849ff4f241088450f552eae7f6 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 2 Mar 2008 12:48:14 +0000 Subject: testing modules ok --- lib/Numeric/LinearAlgebra/Tests.hs | 7 ++++--- lib/Numeric/LinearAlgebra/Tests/Properties.hs | 2 +- 2 files changed, 5 insertions(+), 4 deletions(-) (limited to 'lib/Numeric') 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 -- cgit v1.2.3