module Main where

import Test.HUnit
import Control.Monad
import AufgabeFFP1

assertBoolF :: String -> Bool -> Assertion
assertBoolF msg b =  when b (assertFailure msg)

-------------------------------------------------------------------------------

pof2s1 :: Test
pof2s1 = TestCase (assertEqual "pof2s" [1,2,4,8,16,32,64,128,256,512] (take 10 pof2s))

pof2sTests = TestList [pof2s1]

-------------------------------------------------------------------------------

pd1 :: Test
pd1 = TestCase (assertEqual "pd" [[1], [1,1], [1,2,1], [1,3,3,1], [1,4,6,4,1],
  [1,5,10,10,5,1], [1,6,15,20,15,6,1], [1,7,21,35,35,21,7,1],
  [1,8,28,56,70,56,28,8,1], [1,9,36,84,126,126,84,36,9,1],
  [1,10,45,120,210,252,210,120,45,10,1]] (take 11 pd))

pdTests = TestList [pd1]

-------------------------------------------------------------------------------

tests :: [Test]
tests = [pof2s1, pdTests]

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