19 lines
414 B
Haskell
19 lines
414 B
Haskell
module Main (main) where
|
|
----------------------------------------------------------------------------------
|
|
import Control.Monad
|
|
import System.Exit
|
|
import Test.QuickCheck
|
|
import Arith
|
|
----------------------------------------------------------------------------------
|
|
|
|
runTests :: IO Bool
|
|
runTests = runTestsArith
|
|
|
|
main :: IO ()
|
|
main = do
|
|
good <- runTests
|
|
if good
|
|
then exitSuccess
|
|
else exitFailure
|
|
|