1 files changed, 14 insertions, 2 deletions

diff --git a/TestAufgabeFFP1.hs b/TestAufgabeFFP1.hs
index 4a38f3c..d1152f4 100644..100755
--- a/TestAufgabeFFP1.hs
+++ b/TestAufgabeFFP1.hs
@@ -1,7 +1,11 @@
+#!/usr/bin/runhugs +l
+
 module Main where
 
 import Test.HUnit
 import Control.Monad
+import System
+import Data.Array
 import AufgabeFFP1
 
 assertBoolF :: String -> Bool -> Assertion
@@ -79,6 +83,14 @@ fibspdTests = TestList [fibspd1]
 tests :: [Test]
 tests = [pof2s1, pdTests, fibdiagTests, fibdiagsTests, fibspdTests]
 
+isSuccess :: Counts -> Bool
+isSuccess Counts{ cases = _, tried = _, errors = 0, failures = 0 } = True
+isSuccess Counts{ cases = _, tried = _, errors = _, failures = _ } = False
+
+runTest :: Test -> IO ()
+runTest test = do
+  result <- runTestTT test
+  unless (isSuccess result) exitFailure
+
 main = do
-  forM tests $ \test ->
-    runTestTT test
+  forM tests $ (\test -> runTest test)