1 files changed, 24 insertions, 0 deletions

diff --git a/TestAufgabeFFP3.hs b/TestAufgabeFFP3.hs
new file mode 100644
index 0000000..bbb5fbc
--- /dev/null
+++ b/TestAufgabeFFP3.hs
@@ -0,0 +1,24 @@
+module Main where
+
+import Prelude hiding (filter)
+
+
+import Test.HUnit
+import Control.Monad
+import AufgabeFFP3
+
+cases1 = TestLabel "foo" $ TestList [
+  TestCase $ assertEqual "a" [([(2,7),(2,6)],4,13)] ((selector1 . (filter 5) . transformer . generator) [(5,3),(2,7),(2,6),(10,100)]),
+  TestCase $ assertEqual "b" ((selector1 . (filter 13) . transformer . generator) [(5,3),(2,7),(2,6),(10,100)]) [([(2,7),(10,100)],12,107)],
+  TestCase $ assertEqual "c" ((selector1 . (filter 1) . transformer . generator) [(5,3),(2,7),(2,6),(10,100)]) [],
+  TestCase $ assertEqual "d" ((selector1 . (filter 5) . transformer . generator) [(5,13),(2,7),(2,6),(10,100)]) [([(5,13)],5,13), ([(2,7),(2,6)],4,13)],
+        TestCase $ assertEqual "e" ((selector2 . (filter 5) . transformer . generator) [(5,13),(2,7),(2,6),(10,100)]) [([(2,7),(2,6)],4,13)]
+        ]
+
+tests :: [Test]
+tests = [cases1]
+
+main = do
+  forM tests $ \test ->
+            runTestTT test
+