FFPiH/uebung2017_3
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixes tests, adds a more adequate komplizierteFunktion to A3

Browse Source
This commit is contained in:
BergesJ
2017-05-09 00:28:48 +02:00
parent ab40846aae
commit 5c0c93b38c
8 changed files with 31 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
test/Aufgabe3-Spec.hs
View File

@ -5,7 +5,16 @@ import Test.Framework.Providers.HUnit (testCase)
import Test.Framework.Runners.Console (defaultMain)
import Test.HUnit
testData = [(72.47984345237802,(2.0,-5.0,7.0,1.0)),(72.4760070010783,(2.0,-8.0,7.0,1.0)),(72.46191340940976,(2.0,-2.0,7.0,1.0)),(72.42364516911707,(2.0,1.0,7.0,1.0)),(72.40259767762782,(2.0,8.0,7.0,1.0)),(72.36808715758247,(2.0,4.0,7.0,1.0)),(72.34631205975349,(2.0,-5.0,7.0,0.0)),(72.34247560845377,(2.0,-8.0,7.0,0.0)),(72.34112944881682,(2.0,5.0,7.0,1.0)),(72.32838201678523,(2.0,-2.0,7.0,0.0))]
{- TEST CASES-}
nBesteEingabeTest = testCase "Teste `nBesteEingabe`"
$ assertEqual "Teste `nBesteEingabe 10 1` == hard coded test data " (testData)
$ nBesteEingaben 10 1
tests = [nBesteEingabeTest]
main :: IO ()
main = putStrLn $ "Für Aufgabe 3 liegen noch keine Tests vor"
main = defaultMain tests

14
test/Aufgabe4-Spec.hs
View File

@ -5,12 +5,18 @@ import Test.Framework.Runners.Console (defaultMain)
import Test.HUnit
testData = [(Rot,Land Frankreich [Schweiz,Deutschland,Luxemburg]),(Gruen,Land Deutschland [Frankreich,Schweiz,Oesterreich,Luxemburg,Polen,Niederlande,Belgien,Tschechien]),(Rot,Land Niederlande [Deutschland,Belgien]),(Gelb,Land Belgien [Frankreich,Deutschland,Luxemburg]),(Rot,Land Polen [Tschechien,Deutschland]),(Rot,Land Oesterreich [Schweiz,Deutschland,Tschechien]),(Gelb,Land Schweiz [Frankreich,Oesterreich,Deutschland]),(Rot,Land Island []),(Blau,Land Luxemburg [Frankreich,Deutschland]),(Gelb,Land Tschechien [Oesterreich,Polen,Deutschland])]
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]
einfaerbenMTest = testCase "Teste `einfaerbenM`"
$ assertEqual "Teste `head einfaerbenM defaultMap` == hard coded test data" (testData)
$ (head $ einfaerbenM defaultMap)
einfaerbenLCTest = testCase "Teste `einfaerbenLC`"
$ assertEqual "Teste `head einfaerbenLC defaultMap` == hard coded test data" (testData)
$ (head $ einfaerbenLC defaultMap)
tests = [einfaerbenMTest,einfaerbenLCTest]
main :: IO ()
main = defaultMain tests