summaryrefslogtreecommitdiff
path: root/examples/tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/tests.hs')
-rw-r--r--examples/tests.hs9
1 files changed, 7 insertions, 2 deletions
diff --git a/examples/tests.hs b/examples/tests.hs
index 5c14f96..80070fd 100644
--- a/examples/tests.hs
+++ b/examples/tests.hs
@@ -266,7 +266,8 @@ gammaTest = test "gamma" (gamma 5 == 24.0)
266 266
267--------------------------------------------------------------------- 267---------------------------------------------------------------------
268 268
269cholRTest = chol ((2><2) [1,2,2,9::Double]) == (2><2) [1,0,2,2.23606797749979] 269cholRTest = chol ((2><2) [1,2,2,9::Double]) == (2><2) [1,2,0,2.23606797749979]
270cholCTest = chol ((2><2) [1,2,2,9::Complex Double]) == (2><2) [1,2,0,2.23606797749979]
270 271
271--------------------------------------------------------------------- 272---------------------------------------------------------------------
272 273
@@ -316,6 +317,11 @@ tests = do
316 putStrLn "--------- pinv ------" 317 putStrLn "--------- pinv ------"
317 quickCheck (pinvTest . sqm :: SqM Double -> Bool) 318 quickCheck (pinvTest . sqm :: SqM Double -> Bool)
318 quickCheck (pinvTest . sqm :: SqM (Complex Double) -> Bool) 319 quickCheck (pinvTest . sqm :: SqM (Complex Double) -> Bool)
320 putStrLn "--------- chol ------"
321 runTestTT $ TestList
322 [ test "cholR" cholRTest
323 , test "cholC" cholRTest
324 ]
319 putStrLn "--------- nullspace ------" 325 putStrLn "--------- nullspace ------"
320 quickCheck (nullspaceTest :: RM -> Bool) 326 quickCheck (nullspaceTest :: RM -> Bool)
321 quickCheck (nullspaceTest :: CM -> Bool) 327 quickCheck (nullspaceTest :: CM -> Bool)
@@ -339,7 +345,6 @@ tests = do
339 , integrateTest 345 , integrateTest
340 , polySolveTest 346 , polySolveTest
341 , test "det" detTest 347 , test "det" detTest
342 , test "cholR" cholRTest
343 ] 348 ]
344 349
345bigtests = do 350bigtests = do