quickcheck-tests.hs

   1 module Main where
   2 import Control.Applicative ((<$>))
   3 import System.Exit (exitFailure, exitSuccess)
   4 import Test.IndexedMatrix (allIndexedMatrixTests)
   5 import Test.Monotonic (allMonotonicTests)
   6 import Test.ValueSimplex (allValueSimplexTests)
   7
   8 main :: IO ()
   9 main = do
  10   success <- and <$> sequence
  11     [ allIndexedMatrixTests
  12     , allMonotonicTests
  13     , allValueSimplexTests
  14     ]
  15   if success
  16   then do
  17     putStrLn "All tests passed!"
  18     exitSuccess
  19   else do
  20     putStrLn "At least one test failed."
  21     exitFailure
  22