diff options
Diffstat (limited to 'examples/tests.hs')
-rw-r--r-- | examples/tests.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/examples/tests.hs b/examples/tests.hs index b44d140..9388671 100644 --- a/examples/tests.hs +++ b/examples/tests.hs | |||
@@ -12,6 +12,7 @@ import qualified Numeric.GSL.Matrix as GSL | |||
12 | import Test.QuickCheck hiding (test) | 12 | import Test.QuickCheck hiding (test) |
13 | import Test.HUnit hiding ((~:),test) | 13 | import Test.HUnit hiding ((~:),test) |
14 | import System.Random(randomRs,mkStdGen) | 14 | import System.Random(randomRs,mkStdGen) |
15 | import System.Info | ||
15 | 16 | ||
16 | type RM = Matrix Double | 17 | type RM = Matrix Double |
17 | type CM = Matrix (Complex Double) | 18 | type CM = Matrix (Complex Double) |
@@ -323,7 +324,9 @@ tests = do | |||
323 | quickCheck (invTest . sqm :: SqM (Complex Double) -> Bool) | 324 | quickCheck (invTest . sqm :: SqM (Complex Double) -> Bool) |
324 | putStrLn "--------- pinv ------" | 325 | putStrLn "--------- pinv ------" |
325 | quickCheck (pinvTest . sqm :: SqM Double -> Bool) | 326 | quickCheck (pinvTest . sqm :: SqM Double -> Bool) |
326 | quickCheck (pinvTest . sqm :: SqM (Complex Double) -> Bool) | 327 | if os == "mingw32" |
328 | then putStrLn "complex pinvTest skipped in this OS" | ||
329 | else quickCheck (pinvTest . sqm :: SqM (Complex Double) -> Bool) | ||
327 | putStrLn "--------- chol ------" | 330 | putStrLn "--------- chol ------" |
328 | runTestTT $ TestList | 331 | runTestTT $ TestList |
329 | [ test "cholR" cholRTest | 332 | [ test "cholR" cholRTest |