diff options
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra')
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 |
28 | import Numeric.LinearAlgebra | 28 | import Numeric.LinearAlgebra |
29 | import Numeric.Container | ||
29 | import Numeric.LinearAlgebra.LAPACK | 30 | import Numeric.LinearAlgebra.LAPACK |
30 | import Numeric.LinearAlgebra.Tests.Instances | 31 | import Numeric.LinearAlgebra.Tests.Instances |
31 | import Numeric.LinearAlgebra.Tests.Properties | 32 | import Numeric.LinearAlgebra.Tests.Properties |
@@ -66,6 +67,11 @@ a ~~ b = fromList a |~| fromList b | |||
66 | 67 | ||
67 | feye n = flipud (ident n) :: Matrix Double | 68 | feye n = flipud (ident n) :: Matrix Double |
68 | 69 | ||
70 | eps = peps :: Double | ||
71 | |||
72 | i = 0 :+ 1 :: Complex Double | ||
73 | |||
74 | |||
69 | ----------------------------------------------------------- | 75 | ----------------------------------------------------------- |
70 | 76 | ||
71 | detTest1 = det m == 26 | 77 | detTest1 = 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( | |||
29 | import System.Random | 29 | import System.Random |
30 | 30 | ||
31 | import Numeric.LinearAlgebra | 31 | import Numeric.LinearAlgebra |
32 | import Numeric.LinearAlgebra.Devel | ||
33 | import Numeric.Container | ||
32 | import Control.Monad(replicateM) | 34 | import Control.Monad(replicateM) |
33 | import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector | 35 | import 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 | ||
46 | import Numeric.LinearAlgebra --hiding (real,complex) | 46 | import Numeric.LinearAlgebra --hiding (real,complex) |
47 | import Numeric.LinearAlgebra.Devel | ||
48 | import Numeric.Container | ||
47 | import Numeric.LinearAlgebra.LAPACK | 49 | import Numeric.LinearAlgebra.LAPACK |
48 | import Debug.Trace | 50 | import Debug.Trace |
49 | import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector | 51 | import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector |