TestAufgabeFFP7.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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