1 files changed, 22 insertions, 0 deletions

diff --git a/TestAufgabeFFP5.hs b/TestAufgabeFFP5.hs
new file mode 100644
index 0000000..03cd00b
--- /dev/null
+++ b/TestAufgabeFFP5.hs
@@ -0,0 +1,22 @@
+module Main where
+
+import Test.HUnit
+import Control.Monad
+import Data.Array
+import AufgabeFFP5
+
+cases1 = TestLabel "mas" $ TestList [
+  TestCase $ assertEqual "exercise example"
+    12
+    (mas $ array (1,9) [(1,3),(2,(-5)),(3,0),(4,9),(5,2),(6,(-1)),(7,2),(8,(-5)),(9,1)]),
+  TestCase $ assertEqual "short list"
+    21
+    (mas $ array (1,6) [(1, (-3)), (2, 1), (3, 10), (4, (-5)), (5, 8), (6, 7)])
+  ]
+
+tests :: [Test]
+tests = [cases1]
+
+main = do
+  forM tests $ \test ->
+    runTestTT test