17 lines
453 B
Haskell
17 lines
453 B
Haskell
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
|