diff --git a/temp.txt b/temp.txt index 5b42468..94954ab 100644 --- a/temp.txt +++ b/temp.txt @@ -1 +1,2 @@ -hello again +hello +world diff --git a/test/normal-delete.sml b/test/normal-delete.sml index 85c1fa2..800ca62 100644 --- a/test/normal-delete.sml +++ b/test/normal-delete.sml @@ -2956,6 +2956,30 @@ struct end) ] + val dDlrDelete = describe "delete motion 'd$'" + [test + "deletes only last character on line \ + \when cursor is on last character" + (fn _ => + let + (* arrange *) + val originalString = "hello\nworld\n" + val app = TestUtils.init originalString + val app = AppWith.idx (app, 4) + + (* act *) + val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d$") + + (* assert *) + val actualString = LineGap.toString buffer + val expectedString = originalString + val expectedCursorIdx = 3 + in + Expect.isTrue + (actualString = expectedString + andalso cursorIdx = expectedCursorIdx) + end)] + val tests = [ dhDelete , dlDelete @@ -2973,5 +2997,6 @@ struct , dGDelete , dggDelete , d0Delete + , dDlrDelete ] end