alternative multiply versions

1 files changed, 5 insertions, 0 deletions

diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs
index 7b28075..07b9f63 100644
--- a/lib/Numeric/LinearAlgebra/Tests.hs
+++ b/lib/Numeric/LinearAlgebra/Tests.hs
@@ -123,6 +123,11 @@ runTests :: Int  -- ^ maximum dimension
 runTests n = do
     setErrorHandlerOff
     let test p = qCheck n p
+    putStrLn "------ mult"
+    test (multProp1  . rConsist)
+    test (multProp1  . cConsist)
+    test (multProp2  . rConsist)
+    test (multProp2  . cConsist)
     putStrLn "------ lu"
     test (luProp    . rM)
     test (luProp    . cM)