diff options
Diffstat (limited to 'TestAufgabeFFP1.hs')
| -rw-r--r-- | TestAufgabeFFP1.hs | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/TestAufgabeFFP1.hs b/TestAufgabeFFP1.hs index 1fa5c35..4a38f3c 100644 --- a/TestAufgabeFFP1.hs +++ b/TestAufgabeFFP1.hs | |||
| @@ -67,8 +67,17 @@ fibdiagsTests = TestList [fibdiags1] | |||
| 67 | 67 | ||
| 68 | ------------------------------------------------------------------------------- | 68 | ------------------------------------------------------------------------------- |
| 69 | 69 | ||
| 70 | fibspd1 :: Test | ||
| 71 | fibspd1 = TestCase (assertEqual "fibspd" | ||
| 72 | [1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765,10946,17711,28657] | ||
| 73 | (take 23 fibspd)) | ||
| 74 | |||
| 75 | fibspdTests = TestList [fibspd1] | ||
| 76 | |||
| 77 | ------------------------------------------------------------------------------- | ||
| 78 | |||
| 70 | tests :: [Test] | 79 | tests :: [Test] |
| 71 | tests = [pof2s1, pdTests, fibdiagTests, fibdiagsTests] | 80 | tests = [pof2s1, pdTests, fibdiagTests, fibdiagsTests, fibspdTests] |
| 72 | 81 | ||
| 73 | main = do | 82 | main = do |
| 74 | forM tests $ \test -> | 83 | forM tests $ \test -> |