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]

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

tests :: [Test]
tests = [pof2s1]

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