add another failing test for 'dl' motion

test/normal-delete.sml

@@ -215,7 +215,8 @@ struct
            end)
     , test
         "moves cursor to last newline after deleting \
-        \all non-newline chars on last line"
+        \all non-newline chars on last line \
+        \and the original string ends with a newline"
         (fn _ =>
            let
              (* arrange *)
@@ -238,6 +239,32 @@ struct
            in
              Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
            end)
+    , test
+        "moves cursor to last newline after deleting \
+        \all non-newline chars on last line \
+        \and the original string does not end with a newline"
+        (fn _ =>
+           let
+             (* arrange *)
+             val originalIdx = 6
+             val originalString = "hello\nworld"
+
+             val app = TestUtils.init originalString
+             val app = AppWith.idx (app, originalIdx)
+
+             (* act *)
+             val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "33dl")
+
+             (* assert *)
+             val actualString = LineGap.toString buffer
+             val expectedString = "hello\n"
+             val stringIsExpected = actualString = expectedString
+
+             val expectedCursorIdx = 4
+             val cursorIdxIsExpected = cursorIdx = expectedCursorIdx
+           in
+             Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
+           end)
     ]
 
   val djDelete = describe "delete motion 'dj'"