summaryrefslogtreecommitdiff
path: root/packages/tests
diff options
context:
space:
mode:
Diffstat (limited to 'packages/tests')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs21
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs2
2 files changed, 2 insertions, 21 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
index cf0f581..71c7c16 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
@@ -28,9 +28,8 @@ module Numeric.LinearAlgebra.Tests(
28--, runBigTests 28--, runBigTests
29) where 29) where
30 30
31import Numeric.LinearAlgebra.HMatrix 31import Numeric.LinearAlgebra hiding (unitary)
32import Numeric.LinearAlgebra.Devel hiding (vec) 32import Numeric.LinearAlgebra.Devel hiding (vec)
33import Numeric.LinearAlgebra.HMatrix.Util
34import Numeric.LinearAlgebra.Static(L) 33import Numeric.LinearAlgebra.Static(L)
35import Numeric.LinearAlgebra.Tests.Instances 34import Numeric.LinearAlgebra.Tests.Instances
36import Numeric.LinearAlgebra.Tests.Properties 35import Numeric.LinearAlgebra.Tests.Properties
@@ -372,23 +371,6 @@ convolutionTest = utest "convolution" ok
372 371
373-------------------------------------------------------------------------------- 372--------------------------------------------------------------------------------
374 373
375kroneckerTest = utest "kronecker" ok
376 where
377 a,x,b :: Matrix Double
378 a = (3><4) [1..]
379 x = (4><2) [3,5..]
380 b = (2><5) [0,5..]
381 v1 = vec (a <> x <> b)
382 v2 = (tr b `kronecker` a) #> vec x
383 s = tr b <> b
384 v3 = vec s
385 v4 = (dup 5 :: Matrix Double) #> vech s
386 ok = v1 == v2 && v3 == v4
387 && vtrans 1 a == tr a
388 && vtrans (rows a) a == asColumn (vec a)
389
390--------------------------------------------------------------------------------
391
392sparseTest = utest "sparse" (fst $ checkT (undefined :: GMatrix)) 374sparseTest = utest "sparse" (fst $ checkT (undefined :: GMatrix))
393 375
394-------------------------------------------------------------------------------- 376--------------------------------------------------------------------------------
@@ -583,7 +565,6 @@ runTests n = do
583 , conformTest 565 , conformTest
584 , accumTest 566 , accumTest
585 , convolutionTest 567 , convolutionTest
586 , kroneckerTest
587 , sparseTest 568 , sparseTest
588 , staticTest 569 , staticTest
589 ] 570 ]
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs
index e2492dd..207a303 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs
@@ -42,7 +42,7 @@ module Numeric.LinearAlgebra.Tests.Properties (
42 linearSolveProp, linearSolveProp2 42 linearSolveProp, linearSolveProp2
43) where 43) where
44 44
45import Numeric.LinearAlgebra.HMatrix hiding (Testable)--hiding (real,complex) 45import Numeric.LinearAlgebra.HMatrix hiding (Testable,unitary)
46import Test.QuickCheck 46import Test.QuickCheck
47 47
48trivial :: Testable a => Bool -> a -> Property 48trivial :: Testable a => Bool -> a -> Property