module Main where

import Test.HUnit
import Control.Monad
import Data.Array
import AufgabeFFP5

cases1 = TestLabel "mas" $ TestList [
  TestCase $ assertEqual "exercise example"
    12
    (mas $ array (1,9) [(1,3),(2,(-5)),(3,0),(4,9),(5,2),(6,(-1)),(7,2),(8,(-5)),(9,1)]),
  TestCase $ assertEqual "short list"
    21
    (mas $ array (1,6) [(1, (-3)), (2, 1), (3, 10), (4, (-5)), (5, 8), (6, 7)])
  ]

tests :: [Test]
tests = [cases1]

main = do
  forM tests $ \test ->
    runTestTT test