tests

tst/Main.hs

@@ -1,5 +1,18 @@
 module Main (main) where
 ----------------------------------------------------------------------------------
+import Control.Monad
+import System.Exit
+import Test.QuickCheck
+import Arith
+----------------------------------------------------------------------------------
+
+runTests :: IO Bool
+runTests = runTestsArith
 
 main :: IO ()
-main = putStrLn "Test suite not yet implemented."
+main = do
+    good <- runTests
+    if good
+    then exitSuccess
+    else exitFailure
+