diff options
Diffstat (limited to 'TestAufgabeFFP5.hs')
| -rw-r--r-- | TestAufgabeFFP5.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/TestAufgabeFFP5.hs b/TestAufgabeFFP5.hs index 7e0b731..865f503 100644 --- a/TestAufgabeFFP5.hs +++ b/TestAufgabeFFP5.hs | |||
| @@ -32,7 +32,7 @@ cases1 = "mas" ~: TestList [ | |||
| 32 | "mas d" ~: 21 ~=? (mas d), | 32 | "mas d" ~: 21 ~=? (mas d), |
| 33 | "mas minA" ~: 0 ~=? (mas minA) | 33 | "mas minA" ~: 0 ~=? (mas minA) |
| 34 | ] | 34 | ] |
| 35 | 35 | ||
| 36 | cases2 = TestLabel "amas" $ TestList [ | 36 | cases2 = TestLabel "amas" $ TestList [ |
| 37 | "amas a" ~: [(3,7), (4,7)] ~=? (amas a), | 37 | "amas a" ~: [(3,7), (4,7)] ~=? (amas a), |
| 38 | "amas b" ~: [(1,7),(1,8),(4,7),(4,8)] ~=? (amas b), | 38 | "amas b" ~: [(1,7),(1,8),(4,7),(4,8)] ~=? (amas b), |
| @@ -40,7 +40,7 @@ cases2 = TestLabel "amas" $ TestList [ | |||
| 40 | "amas d" ~: [(2,6)] ~=? (amas d), | 40 | "amas d" ~: [(2,6)] ~=? (amas d), |
| 41 | "amas minA" ~: [(0,0)] ~=? (amas minA) | 41 | "amas minA" ~: [(0,0)] ~=? (amas minA) |
| 42 | ] | 42 | ] |
| 43 | 43 | ||
| 44 | cases3 = TestLabel "lmas" $ TestList [ | 44 | cases3 = TestLabel "lmas" $ TestList [ |
| 45 | "lmas a" ~: (3,7) ~=? (lmas a), | 45 | "lmas a" ~: (3,7) ~=? (lmas a), |
| 46 | "lmas b" ~: (1,8) ~=? (lmas b), | 46 | "lmas b" ~: (1,8) ~=? (lmas b), |
| @@ -48,7 +48,7 @@ cases3 = TestLabel "lmas" $ TestList [ | |||
| 48 | "lmas d" ~: (2,6) ~=? (lmas d), | 48 | "lmas d" ~: (2,6) ~=? (lmas d), |
| 49 | "lmas minA" ~: (0,0) ~=? (lmas minA) | 49 | "lmas minA" ~: (0,0) ~=? (lmas minA) |
| 50 | ] | 50 | ] |
| 51 | 51 | ||
| 52 | cases4 = TestLabel "minIndex" $ TestList [ | 52 | cases4 = TestLabel "minIndex" $ TestList [ |
| 53 | "minIndex a (>5)" ~: 4 ~=? (minIndex a (>5)), | 53 | "minIndex a (>5)" ~: 4 ~=? (minIndex a (>5)), |
| 54 | "minIndex a (<0)" ~: 2 ~=? (minIndex a (<0)), | 54 | "minIndex a (<0)" ~: 2 ~=? (minIndex a (<0)), |
| @@ -62,7 +62,6 @@ cases4 = TestLabel "minIndex" $ TestList [ | |||
| 62 | -- "minIndex w (=='swim')" ~: error "No matching index" ~=? (minIndex w (=="swim")) | 62 | -- "minIndex w (=='swim')" ~: error "No matching index" ~=? (minIndex w (=="swim")) |
| 63 | ] | 63 | ] |
| 64 | 64 | ||
| 65 | |||
| 66 | tests :: [Test] | 65 | tests :: [Test] |
| 67 | tests = [cases1, cases2, cases3, cases4] | 66 | tests = [cases1, cases2, cases3, cases4] |
| 68 | 67 | ||
