diff options
Diffstat (limited to 'TestAufgabeFFP7.hs')
| -rw-r--r-- | TestAufgabeFFP7.hs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/TestAufgabeFFP7.hs b/TestAufgabeFFP7.hs new file mode 100644 index 0000000..1262c23 --- /dev/null +++ b/TestAufgabeFFP7.hs | |||
| @@ -0,0 +1,19 @@ | |||
| 1 | module Main where | ||
| 2 | |||
| 3 | import Test.HUnit | ||
| 4 | import Control.Monad | ||
| 5 | import AufgabeFFP7 | ||
| 6 | |||
| 7 | cases1 = TestLabel "TODO" $ TestList [ | ||
| 8 | TestCase $ assertEqual "TODO" (result) (call) | ||
| 9 | ... | ||
| 10 | ] | ||
| 11 | |||
| 12 | -------------------------------------------------------------------------------- | ||
| 13 | |||
| 14 | tests :: [Test] | ||
| 15 | tests = [cases1, ...] | ||
| 16 | |||
| 17 | main = do | ||
| 18 | forM tests $ \test -> | ||
| 19 | runTestTT test | ||
