summaryrefslogtreecommitdiff
path: root/packages/tests/src/Numeric/LinearAlgebra
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/tests/src/Numeric/LinearAlgebra
parent6fbed842525491e280448a00a4b5426e6830ccaa (diff)
tests updated to 0.16
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs4
1 files changed, 2 insertions, 2 deletions
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 ()