diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-10-27 08:53:15 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-10-27 08:53:15 +0000 |
| commit | ff177d3298f4458503e9485596559c7d74048769 (patch) | |
| tree | 43f844f468ebd56c290ac59d17ed3438648ed09e /examples/tests.hs | |
| parent | 71320675021472b2f97191ba514c651ceb8a1617 (diff) | |
added doc
Diffstat (limited to 'examples/tests.hs')
| -rw-r--r-- | examples/tests.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/tests.hs b/examples/tests.hs index 8224255..e2f0dd5 100644 --- a/examples/tests.hs +++ b/examples/tests.hs | |||
| @@ -364,7 +364,9 @@ tests = do | |||
| 364 | quickCheck (hessTest . sqm ::SqM (Complex Double) -> Bool) | 364 | quickCheck (hessTest . sqm ::SqM (Complex Double) -> Bool) |
| 365 | putStrLn "--------- schur --------" | 365 | putStrLn "--------- schur --------" |
| 366 | quickCheck (schurTest2 . sqm ::SqM Double->Bool) | 366 | quickCheck (schurTest2 . sqm ::SqM Double->Bool) |
| 367 | quickCheck (schurTest1 . sqm ::SqM (Complex Double) -> Bool) | 367 | if os == "mingw32" |
| 368 | then putStrLn "complex schur skipped in this OS" | ||
| 369 | else quickCheck (schurTest1 . sqm ::SqM (Complex Double) -> Bool) | ||
| 368 | putStrLn "--------- nullspace ------" | 370 | putStrLn "--------- nullspace ------" |
| 369 | quickCheck (nullspaceTest :: RM -> Bool) | 371 | quickCheck (nullspaceTest :: RM -> Bool) |
| 370 | quickCheck (nullspaceTest :: CM -> Bool) | 372 | quickCheck (nullspaceTest :: CM -> Bool) |