import Aufgabe4

import Test.Framework.Providers.HUnit (testCase)
import Test.Framework.Runners.Console (defaultMain)

import Test.HUnit


einfaerbenATest = testCase "Teste einfaerbenA"
  $ assertEqual "take 2 `einfaerbenM defaultMap` und take 2 `einfaerbenA defaultMap` sollten die gleichen Färbungen ausgeben" (take 2 $ einfaerbenM defaultMap) 
  $ (take 2 $ einfaerbenA defaultMap)

tests = [einfaerbenATest]

main :: IO ()
main = defaultMain tests