diff options
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) |