real tests!

2023-12-14 12:59:31 -07:00
parent 7a0b2e0711
commit 5ea629a439
6 changed files with 148 additions and 57 deletions
--- a/tst/Main.hs
+++ b/tst/Main.hs
@@ -1,18 +1 @@
-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
-
+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}