diff options
Diffstat (limited to 'packages/tests')
-rw-r--r-- | packages/tests/hmatrix-tests.cabal | 2 | ||||
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/packages/tests/hmatrix-tests.cabal b/packages/tests/hmatrix-tests.cabal index de796e8..49e0640 100644 --- a/packages/tests/hmatrix-tests.cabal +++ b/packages/tests/hmatrix-tests.cabal | |||
@@ -26,7 +26,7 @@ flag gsl | |||
26 | 26 | ||
27 | library | 27 | library |
28 | 28 | ||
29 | Build-Depends: base >= 4 && < 5, | 29 | Build-Depends: base >= 4 && < 5, deepseq, |
30 | QuickCheck >= 2, HUnit, random, | 30 | QuickCheck >= 2, HUnit, random, |
31 | hmatrix >= 0.17 | 31 | hmatrix >= 0.17 |
32 | if flag(gsl) | 32 | if flag(gsl) |
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index d1fc6ec..b226c9f 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |||
@@ -47,6 +47,7 @@ import Debug.Trace | |||
47 | import Control.Monad(when) | 47 | import Control.Monad(when) |
48 | import Control.Applicative | 48 | import Control.Applicative |
49 | import Control.Monad(ap) | 49 | import Control.Monad(ap) |
50 | import Control.DeepSeq ( NFData(..) ) | ||
50 | 51 | ||
51 | import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector | 52 | import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector |
52 | ,sized,classify,Testable,Property | 53 | ,sized,classify,Testable,Property |
@@ -770,7 +771,7 @@ cholBench = do | |||
770 | luBenchN f n x msg = do | 771 | luBenchN f n x msg = do |
771 | let m = diagRect 1 (fromList (replicate n x)) n n | 772 | let m = diagRect 1 (fromList (replicate n x)) n n |
772 | m `seq` putStr "" | 773 | m `seq` putStr "" |
773 | time (msg ++ " "++ show n) (f m) | 774 | time (msg ++ " "++ show n) (rnf $ f m) |
774 | 775 | ||
775 | luBench = do | 776 | luBench = do |
776 | putStrLn "" | 777 | putStrLn "" |