diff options
Diffstat (limited to 'TestAufgabeFFP7.hs')
| -rwxr-xr-x | TestAufgabeFFP7.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/TestAufgabeFFP7.hs b/TestAufgabeFFP7.hs index 16952cb..1bbd10e 100755 --- a/TestAufgabeFFP7.hs +++ b/TestAufgabeFFP7.hs | |||
| @@ -13,15 +13,13 @@ cases1 = TestLabel "buffer" $ TestList [ | |||
| 13 | TestCase $ assertEqual "empty" (0, "") | 13 | TestCase $ assertEqual "empty" (0, "") |
| 14 | (empty), | 14 | (empty), |
| 15 | 15 | ||
| 16 | TestCase $ assertEqual "insert1" (0, "a") | 16 | TestCase $ assertEqual "insert1" (1, "a") |
| 17 | (insert 'a' empty), | 17 | (insert 'a' empty), |
| 18 | TestCase $ assertEqual "insert2" (0, "ba") | 18 | TestCase $ assertEqual "insert2" (2, "ab") |
| 19 | (insert 'b' (insert 'a' empty)), | 19 | (insert 'b' (insert 'a' empty)), |
| 20 | TestCase $ assertEqual "insert3" (0, "ba") | 20 | TestCase $ assertEqual "insert3" (1, "ba") |
| 21 | (insert 'b' (insert 'a' empty)), | ||
| 22 | TestCase $ assertEqual "insert4" (0, "ba") | ||
| 23 | (insert 'b' (-100, "a")), | 21 | (insert 'b' (-100, "a")), |
| 24 | TestCase $ assertEqual "insert5" (2, "ab") | 22 | TestCase $ assertEqual "insert4" (2, "ab") |
| 25 | (insert 'b' (100, "a")), | 23 | (insert 'b' (100, "a")), |
| 26 | 24 | ||
| 27 | TestCase $ assertEqual "delete1" (0, "bc") | 25 | TestCase $ assertEqual "delete1" (0, "bc") |