From 6d7f692ac38f9e2964aed76574c989990f1e573b Mon Sep 17 00:00:00 2001 From: manuel Date: Fri, 23 Mar 2012 18:56:51 +0100 Subject: implementing fibdiag --- TestAufgabeFFP1.hs | 31 ++++++++++++++++++++++++++++++- 1 file changed, 30 insertions(+), 1 deletion(-) (limited to 'TestAufgabeFFP1.hs') 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 -> -- cgit v1.2.3