1 files changed, 20 insertions, 1 deletions

diff --git a/TestAufgabeFFP3.hs b/TestAufgabeFFP3.hs
index bbb5fbc..c83099c 100644
--- a/TestAufgabeFFP3.hs
+++ b/TestAufgabeFFP3.hs
@@ -15,8 +15,27 @@ cases1 = TestLabel "foo" $ TestList [
         TestCase $ assertEqual "e" ((selector2 . (filter 5) . transformer . generator) [(5,13),(2,7),(2,6),(10,100)]) [([(2,7),(2,6)],4,13)]
         ]
 
+cases2 = TestLabel "bar" $ TestList [
+  TestCase $ assertEqual "a" [ binomS (8, i) | i <- [0..7] ] [ binom (8, i) | i <- [0..7] ],
+  TestCase $ assertEqual "a" (binom (1,1)) (binomS (1,1)),
+  TestCase $ assertEqual "a" (binom (2,1)) (binomS (2,1)),
+  TestCase $ assertEqual "a" (binom (18,12)) (binomS (18,12))
+        ]
+
+cases3 = TestLabel "bar" $ TestList [
+  TestCase $ assertEqual "a" [ binomM (8, i) | i <- [0..7] ] [ binom (8, i) | i <- [0..7] ],
+  TestCase $ assertEqual "a" (binom (1,1)) (binomM (1,1)),
+  TestCase $ assertEqual "a" (binom (2,1)) (binomM (2,1)),
+  TestCase $ assertEqual "a" (binom (18,12)) (binomM (18,12))
+        ]
+
+cases4 = TestLabel "bar" $ TestList [
+  TestCase $ assertEqual "a" ( [binomS (n, k) | k <- [0..50], n <- [k..50] ] ) ( [binomM (n, k) | k <- [0..50], n <- [k..50] ] ) 
+        ]
+
+
 tests :: [Test]
-tests = [cases1]
+tests = [cases1, cases2, cases3, cases4]
 
 main = do
   forM tests $ \test ->