diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r-- | lib/Numeric/LinearAlgebra/Tests.hs | 8 |
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( | |||
22 | import Numeric.LinearAlgebra | 22 | import Numeric.LinearAlgebra |
23 | import Numeric.LinearAlgebra.Tests.Instances | 23 | import Numeric.LinearAlgebra.Tests.Instances |
24 | import Numeric.LinearAlgebra.Tests.Properties | 24 | import Numeric.LinearAlgebra.Tests.Properties |
25 | import Test.QuickCheck | 25 | import Test.QuickCheck hiding (test) |
26 | import Test.HUnit hiding ((~:),test) | 26 | import Test.HUnit hiding ((~:),test) |
27 | import System.Info | 27 | import System.Info |
28 | import Data.List(foldl1') | 28 | import Data.List(foldl1') |
29 | import Numeric.GSL hiding (sin,cos,exp,choose) | 29 | import Numeric.GSL hiding (sin,cos,exp,choose) |
30 | import Prelude hiding ((^)) | ||
31 | import qualified Prelude | ||
32 | |||
33 | a ^ b = a Prelude.^ (b :: Int) | ||
30 | 34 | ||
31 | qCheck n = check defaultConfig {configSize = const n} | 35 | qCheck 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 | ||
75 | exponentialTest = utest "exp_e10_e" ( abs (v*10^e - expected) < 4E-2 ) | 79 | exponentialTest = 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 | --------------------------------------------------------------------- |