diff options
Diffstat (limited to 'TestAufgabeFFP6.hs')
| -rw-r--r-- | TestAufgabeFFP6.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/TestAufgabeFFP6.hs b/TestAufgabeFFP6.hs index 86bd75d..77cae92 100644 --- a/TestAufgabeFFP6.hs +++ b/TestAufgabeFFP6.hs | |||
| @@ -11,7 +11,15 @@ cases1 = TestLabel "eval" $ TestList [ | |||
| 11 | TestCase $ assertEqual "eval2" (5) | 11 | TestCase $ assertEqual "eval2" (5) |
| 12 | (eval (array (1,3) [(1,1), (2,2), (3,3)]) (array (1,2) [(1,(*)), (2,(+))])), | 12 | (eval (array (1,3) [(1,1), (2,2), (3,3)]) (array (1,2) [(1,(*)), (2,(+))])), |
| 13 | TestCase $ assertEqual "eval3" (-3) | 13 | TestCase $ assertEqual "eval3" (-3) |
| 14 | (eval (array (1,3) [(1,1), (2,2), (3,3)]) (array (1,2) [(1,(-)), (2,(*))])) | 14 | (eval (array (1,3) [(1,1), (2,2), (3,3)]) (array (1,2) [(1,(-)), (2,(*))])), |
| 15 | TestCase $ assertEqual "eval4" (-1) | ||
| 16 | (eval (array (1,6) [(1,3), (2,5), (3,2), (4,-2), (5,7), (6,0)]) (array (1,5) [(1,(+)), (2,(./.)), (3,(*)), (4,(+)), (5,(-))])), | ||
| 17 | TestCase $ assertEqual "eval5" (1) | ||
| 18 | (eval (array (1,6) [(1,3), (2,5), (3,2), (4,-2), (5,7), (6,0)]) (array (1,5) [(1,(*)), (2,(-)), (3,(+)), (4,(./.)), (5,(+))])), | ||
| 19 | TestCase $ assertEqual "eval6" (-5) | ||
| 20 | (eval (array (1,6) [(1,4), (2,2), (3,3), (4,-4), (5,5), (6,2)]) (array (1,5) [(1,(+)), (2,(./.)), (3,(*)), (4,(+)), (5,(-))])), | ||
| 21 | TestCase $ assertEqual "eval7" (2) | ||
| 22 | (eval (array (1,6) [(1,4), (2,2), (3,3), (4,-4), (5,5), (6,2)]) (array (1,5) [(1,(*)), (2,(-)), (3,(+)), (4,(./.)), (5,(+))])) | ||
| 15 | ] | 23 | ] |
| 16 | 24 | ||
| 17 | tests :: [Test] | 25 | tests :: [Test] |