summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/Tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r--lib/Numeric/LinearAlgebra/Tests.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs
index 07b9f63..7ebd1f2 100644
--- a/lib/Numeric/LinearAlgebra/Tests.hs
+++ b/lib/Numeric/LinearAlgebra/Tests.hs
@@ -22,11 +22,15 @@ module Numeric.LinearAlgebra.Tests(
22import Numeric.LinearAlgebra 22import Numeric.LinearAlgebra
23import Numeric.LinearAlgebra.Tests.Instances 23import Numeric.LinearAlgebra.Tests.Instances
24import Numeric.LinearAlgebra.Tests.Properties 24import Numeric.LinearAlgebra.Tests.Properties
25import Test.QuickCheck 25import Test.QuickCheck hiding (test)
26import Test.HUnit hiding ((~:),test) 26import Test.HUnit hiding ((~:),test)
27import System.Info 27import System.Info
28import Data.List(foldl1') 28import Data.List(foldl1')
29import Numeric.GSL hiding (sin,cos,exp,choose) 29import Numeric.GSL hiding (sin,cos,exp,choose)
30import Prelude hiding ((^))
31import qualified Prelude
32
33a ^ b = a Prelude.^ (b :: Int)
30 34
31qCheck n = check defaultConfig {configSize = const n} 35qCheck n = check defaultConfig {configSize = const n}
32 36
@@ -73,7 +77,7 @@ besselTest = utest "bessel_J0_e" ( abs (r-expected) < e )
73 expected = -0.17759677131433830434739701 77 expected = -0.17759677131433830434739701
74 78
75exponentialTest = utest "exp_e10_e" ( abs (v*10^e - expected) < 4E-2 ) 79exponentialTest = utest "exp_e10_e" ( abs (v*10^e - expected) < 4E-2 )
76 where (v,e,err) = exp_e10_e 30.0 80 where (v,e,_err) = exp_e10_e 30.0
77 expected = exp 30.0 81 expected = exp 30.0
78 82
79--------------------------------------------------------------------- 83---------------------------------------------------------------------