diff options
| author | totycro <totycro@unknown-horizons.org> | 2012-05-23 10:43:10 +0200 |
|---|---|---|
| committer | totycro <totycro@unknown-horizons.org> | 2012-05-23 10:43:10 +0200 |
| commit | e13cc36c8a2ae63784736cfa7ad6cb0b2ac46572 (patch) | |
| tree | 464bd8122737cdbe0c817101e4af968f4f089541 /TestAufgabeFFP7.hs | |
| parent | 9ce708481e2e7a6de542383da71c715fe69380c1 (diff) | |
| download | ffp-e13cc36c8a2ae63784736cfa7ad6cb0b2ac46572.tar.gz ffp-e13cc36c8a2ae63784736cfa7ad6cb0b2ac46572.tar.bz2 ffp-e13cc36c8a2ae63784736cfa7ad6cb0b2ac46572.zip | |
Only use : instead of ++ for BufferI (constant time instead of linear in the worst case)
delete should delete before the cursor, not after
Diffstat (limited to 'TestAufgabeFFP7.hs')
| -rwxr-xr-x | TestAufgabeFFP7.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/TestAufgabeFFP7.hs b/TestAufgabeFFP7.hs index bbe3540..376e782 100755 --- a/TestAufgabeFFP7.hs +++ b/TestAufgabeFFP7.hs | |||
| @@ -23,8 +23,8 @@ cases1 = TestLabel "buffer" $ TestList [ | |||
| 23 | (insert 'b' (100, "a")), | 23 | (insert 'b' (100, "a")), |
| 24 | 24 | ||
| 25 | TestCase $ assertEqual "delete1" (0, "bc") | 25 | TestCase $ assertEqual "delete1" (0, "bc") |
| 26 | (delete (0, "abc")), | 26 | (delete (0, "bc")), |
| 27 | TestCase $ assertEqual "delete2" (2, "ab") | 27 | TestCase $ assertEqual "delete2" (1, "ac") |
| 28 | (delete (2, "abc")), | 28 | (delete (2, "abc")), |
| 29 | TestCase $ assertEqual "delete3" (0, "abc") | 29 | TestCase $ assertEqual "delete3" (0, "abc") |
| 30 | (delete (-100, "abc")), | 30 | (delete (-100, "abc")), |