summaryrefslogtreecommitdiff
path: root/packages
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2014-04-24 10:45:34 +0200
committerAlberto Ruiz <aruiz@um.es>2014-04-24 10:45:34 +0200
commit8f840c450c66b25b4d2a7afb243830cc7aed400b (patch)
tree3ea7455f7841cbc37e9b1797515766d0e4af9beb /packages
parent6fbed842525491e280448a00a4b5426e6830ccaa (diff)
tests updated to 0.16
Diffstat (limited to 'packages')
-rw-r--r--packages/tests/hmatrix-tests.cabal6
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs4
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 @@
1Name: hmatrix-tests 1Name: hmatrix-tests
2Version: 0.3 2Version: 0.4
3License: GPL 3License: GPL
4License-file: LICENSE 4License-file: LICENSE
5Author: Alberto Ruiz 5Author: Alberto Ruiz
@@ -9,7 +9,7 @@ Homepage: https://github.com/albertoruiz/hmatrix
9Synopsis: Tests for hmatrix 9Synopsis: Tests for hmatrix
10Description: Tests for hmatrix 10Description: Tests for hmatrix
11Category: Math 11Category: Math
12tested-with: GHC==7.4 12tested-with: GHC==7.8
13 13
14cabal-version: >=1.8 14cabal-version: >=1.8
15 15
@@ -21,7 +21,7 @@ extra-source-files: CHANGES
21library 21library
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
276normsMTest = TestList [ 276normsMTest = TestList [
@@ -660,7 +660,7 @@ a |~~| b = a :~6~: b
660 660
661makeUnitary v | realPart n > 1 = v / scalar n 661makeUnitary 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 ()