module Main where import Test.HUnit import Control.Monad import AufgabeFFP7 cases1 = TestLabel "TODO" $ TestList [ TestCase $ assertEqual "TODO" (result) (call) ... ] -------------------------------------------------------------------------------- tests :: [Test] tests = [cases1, ...] main = do forM tests $ \test -> runTestTT test