summaryrefslogtreecommitdiff
path: root/packages/tests/src/Numeric/LinearAlgebra
diff options
context:
space:
mode:
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs8
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs2
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs2
3 files changed, 10 insertions, 2 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
index b5e7c72..e4f0846 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
@@ -26,6 +26,7 @@ module Numeric.LinearAlgebra.Tests(
26 26
27--import Data.Packed.Random 27--import Data.Packed.Random
28import Numeric.LinearAlgebra 28import Numeric.LinearAlgebra
29import Numeric.Container
29import Numeric.LinearAlgebra.LAPACK 30import Numeric.LinearAlgebra.LAPACK
30import Numeric.LinearAlgebra.Tests.Instances 31import Numeric.LinearAlgebra.Tests.Instances
31import Numeric.LinearAlgebra.Tests.Properties 32import Numeric.LinearAlgebra.Tests.Properties
@@ -66,6 +67,11 @@ a ~~ b = fromList a |~| fromList b
66 67
67feye n = flipud (ident n) :: Matrix Double 68feye n = flipud (ident n) :: Matrix Double
68 69
70eps = peps :: Double
71
72i = 0 :+ 1 :: Complex Double
73
74
69----------------------------------------------------------- 75-----------------------------------------------------------
70 76
71detTest1 = det m == 26 77detTest1 = det m == 26
@@ -427,8 +433,6 @@ conformTest = utest "conform" ok
427 ,26,28,30 433 ,26,28,30
428 ,39,41,43 434 ,39,41,43
429 ,52,54,56] 435 ,52,54,56]
430 row = asRow . fromList
431 col = asColumn . fromList :: [Double] -> Matrix Double
432 436
433--------------------------------------------------------------------- 437---------------------------------------------------------------------
434 438
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
index 30bf690..b306f94 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
@@ -29,6 +29,8 @@ module Numeric.LinearAlgebra.Tests.Instances(
29import System.Random 29import System.Random
30 30
31import Numeric.LinearAlgebra 31import Numeric.LinearAlgebra
32import Numeric.LinearAlgebra.Devel
33import Numeric.Container
32import Control.Monad(replicateM) 34import Control.Monad(replicateM)
33import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector 35import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector
34 ,sized,classify,Testable,Property 36 ,sized,classify,Testable,Property
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs
index c96d3de..81cbf61 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs
@@ -44,6 +44,8 @@ module Numeric.LinearAlgebra.Tests.Properties (
44) where 44) where
45 45
46import Numeric.LinearAlgebra --hiding (real,complex) 46import Numeric.LinearAlgebra --hiding (real,complex)
47import Numeric.LinearAlgebra.Devel
48import Numeric.Container
47import Numeric.LinearAlgebra.LAPACK 49import Numeric.LinearAlgebra.LAPACK
48import Debug.Trace 50import Debug.Trace
49import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector 51import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector