adding part1 of aufgabe1 + testcases

2 files changed, 29 insertions, 0 deletions

diff --git a/AufgabeFFP1.hs b/AufgabeFFP1.hs
new file mode 100644
index 0000000..eb9d1fc
--- /dev/null
+++ b/AufgabeFFP1.hs
@@ -0,0 +1,5 @@
+module AufgabeFFP1
+where
+
+pof2s :: [Integer]
+pof2s = map (2^) [0,1..]
diff --git a/TestAufgabeFFP1.hs b/TestAufgabeFFP1.hs
new file mode 100644
index 0000000..1380c17
--- /dev/null
+++ b/TestAufgabeFFP1.hs
@@ -0,0 +1,24 @@
+module Main where
+
+import Test.HUnit
+import Control.Monad
+import AufgabeFFP1
+
+assertBoolF :: String -> Bool -> Assertion
+assertBoolF msg b =  when b (assertFailure msg)
+
+-------------------------------------------------------------------------------
+
+pof2s1 :: Test
+pof2s1 = TestCase (assertEqual "pof2s" [1,2,4,8,16,32,64,128,256,512] (take 10 pof2s))
+
+pof2sTests = TestList [pof2s1]
+
+-------------------------------------------------------------------------------
+
+tests :: [Test]
+tests = [pof2s1]
+
+main = do
+  forM tests $ \test ->
+    runTestTT test