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 [
    (insert 'b' (100, "a")),
  TestCase $ assertEqual "delete1" (0, "bc")
-    (delete (0, "abc")),
+    (delete (0, "bc")),
-  TestCase $ assertEqual "delete2" (2, "ab")
+  TestCase $ assertEqual "delete2" (1, "ac")
    (delete (2, "abc")),
  TestCase $ assertEqual "delete3" (0, "abc")
    (delete (-100, "abc")),

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")),