implementing fibdiag

1 files changed, 30 insertions, 1 deletions

diff --git a/TestAufgabeFFP1.hs b/TestAufgabeFFP1.hs
index e119a3e..7cbc2c2 100644
--- a/TestAufgabeFFP1.hs
+++ b/TestAufgabeFFP1.hs
@@ -26,8 +26,37 @@ pdTests = TestList [pd1]
 
 -------------------------------------------------------------------------------
 
+fibdiag1 :: Test
+fibdiag1 = TestCase (assertEqual "fibdiag(1)" [1] (fibdiag 1))
+
+fibdiag2 :: Test
+fibdiag2 = TestCase (assertEqual "fibdiag(2)" [1] (fibdiag 2))
+
+fibdiag3 :: Test
+fibdiag3 = TestCase (assertEqual "fibdiag(3)" [1,1] (fibdiag 3))
+
+fibdiag4 :: Test
+fibdiag4 = TestCase (assertEqual "fibdiag(4)" [1,2] (fibdiag 4))
+
+fibdiag5 :: Test
+fibdiag5 = TestCase (assertEqual "fibdiag(5)" [1,3,1] (fibdiag 5))
+
+fibdiag6 :: Test
+fibdiag6 = TestCase (assertEqual "fibdiag(6)" [1,4,3] (fibdiag 6))
+
+fibdiag7 :: Test
+fibdiag7 = TestCase (assertEqual "fibdiag(7)" [1,5,6,1] (fibdiag 7))
+
+fibdiag8 :: Test
+fibdiag8 = TestCase (assertEqual "fibdiag(8)" [1,6,10,4] (fibdiag 8))
+
+fibdiagTests = TestList [fibdiag1, fibdiag2, fibdiag3, fibdiag4, fibdiag5,
+  fibdiag6, fibdiag7, fibdiag8]
+
+-------------------------------------------------------------------------------
+
 tests :: [Test]
-tests = [pof2s1, pdTests]
+tests = [pof2s1, pdTests, fibdiagTests]
 
 main = do
   forM tests $ \test ->