summaryrefslogtreecommitdiffstats
path: root/TestAufgabeFFP5.hs
diff options
context:
space:
mode:
Diffstat (limited to 'TestAufgabeFFP5.hs')
-rw-r--r--TestAufgabeFFP5.hs7
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
36cases2 = TestLabel "amas" $ TestList [ 36cases2 = 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
44cases3 = TestLabel "lmas" $ TestList [ 44cases3 = 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
52cases4 = TestLabel "minIndex" $ TestList [ 52cases4 = 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
66tests :: [Test] 65tests :: [Test]
67tests = [cases1, cases2, cases3, cases4] 66tests = [cases1, cases2, cases3, cases4]
68 67