1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
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
|
