diff options
Diffstat (limited to 'packages/tests')
-rw-r--r-- | packages/tests/hmatrix-tests.cabal | 6 | ||||
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/packages/tests/hmatrix-tests.cabal b/packages/tests/hmatrix-tests.cabal index 10b7c80..65254f4 100644 --- a/packages/tests/hmatrix-tests.cabal +++ b/packages/tests/hmatrix-tests.cabal | |||
@@ -1,5 +1,5 @@ | |||
1 | Name: hmatrix-tests | 1 | Name: hmatrix-tests |
2 | Version: 0.3 | 2 | Version: 0.4 |
3 | License: GPL | 3 | License: GPL |
4 | License-file: LICENSE | 4 | License-file: LICENSE |
5 | Author: Alberto Ruiz | 5 | Author: Alberto Ruiz |
@@ -9,7 +9,7 @@ Homepage: https://github.com/albertoruiz/hmatrix | |||
9 | Synopsis: Tests for hmatrix | 9 | Synopsis: Tests for hmatrix |
10 | Description: Tests for hmatrix | 10 | Description: Tests for hmatrix |
11 | Category: Math | 11 | Category: Math |
12 | tested-with: GHC==7.4 | 12 | tested-with: GHC==7.8 |
13 | 13 | ||
14 | cabal-version: >=1.8 | 14 | cabal-version: >=1.8 |
15 | 15 | ||
@@ -21,7 +21,7 @@ extra-source-files: CHANGES | |||
21 | library | 21 | library |
22 | 22 | ||
23 | Build-Depends: base >= 4 && < 5, | 23 | Build-Depends: base >= 4 && < 5, |
24 | hmatrix >= 0.14.1, | 24 | hmatrix >= 0.16, |
25 | QuickCheck >= 2, HUnit, random | 25 | QuickCheck >= 2, HUnit, random |
26 | 26 | ||
27 | hs-source-dirs: src | 27 | hs-source-dirs: src |
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index 7e1799e..5398daa 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |||
@@ -270,7 +270,7 @@ normsVTest = TestList [ | |||
270 | #ifndef NONORMVTEST | 270 | #ifndef NONORMVTEST |
271 | norm2PropR a = norm2 a =~= sqrt (udot a a) | 271 | norm2PropR a = norm2 a =~= sqrt (udot a a) |
272 | #endif | 272 | #endif |
273 | norm2PropC a = norm2 a =~= realPart (sqrt (udot a (conj a))) | 273 | norm2PropC a = norm2 a =~= realPart (sqrt (cdot a a)) |
274 | a =~= b = fromList [a] |~| fromList [b] | 274 | a =~= b = fromList [a] |~| fromList [b] |
275 | 275 | ||
276 | normsMTest = TestList [ | 276 | normsMTest = TestList [ |
@@ -660,7 +660,7 @@ a |~~| b = a :~6~: b | |||
660 | 660 | ||
661 | makeUnitary v | realPart n > 1 = v / scalar n | 661 | makeUnitary v | realPart n > 1 = v / scalar n |
662 | | otherwise = v | 662 | | otherwise = v |
663 | where n = sqrt (conj v `udot` v) | 663 | where n = sqrt (v `cdot` v) |
664 | 664 | ||
665 | -- -- | Some additional tests on big matrices. They take a few minutes. | 665 | -- -- | Some additional tests on big matrices. They take a few minutes. |
666 | -- runBigTests :: IO () | 666 | -- runBigTests :: IO () |