From d772ddd6979fc88d3e6e5255bb23850b64688111 Mon Sep 17 00:00:00 2001
From: manuel <manuel@mausz.at>
Date: Fri, 23 Mar 2012 15:58:21 +0100
Subject: adding part1 of aufgabe1 + testcases

---
 AufgabeFFP1.hs     |  5 +++++
 TestAufgabeFFP1.hs | 24 ++++++++++++++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100644 AufgabeFFP1.hs
 create mode 100644 TestAufgabeFFP1.hs

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
-- 
cgit v1.2.3