From 8e56eb7628efd2400a1f34a0121b0aa62655b491 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Mon, 13 Oct 2025 22:03:49 +0100
Subject: [PATCH] begin adding tests for 'dge' delete motion (one test
 currently fails)

---
 temp.txt               |  3 ++-
 test/normal-delete.sml | 21 +++++++++++++++++++++
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/temp.txt b/temp.txt
index 9e3e294..35ce448 100644
--- a/temp.txt
+++ b/temp.txt
@@ -1 +1,2 @@
-hello!world!again
+hello
+!world!again
diff --git a/test/normal-delete.sml b/test/normal-delete.sml
index d2f168d..41b6475 100644
--- a/test/normal-delete.sml
+++ b/test/normal-delete.sml
@@ -2289,6 +2289,26 @@ struct
            end)
     ]
 
+  val dgeDelete = describe "delete motion 'dge'"
+    [test "does not delete when cursor is at start of file" (fn _ =>
+       let
+         (* arrange *)
+         val originalString = "hello\n"
+         val app = TestUtils.init originalString
+         val app = AppWith.idx (app, 0)
+
+         (* act *)
+         val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dge")
+
+         (* assert *)
+         val actualString = LineGap.toString buffer
+         val expectedString = originalString
+         val expectedCursorIdx = 0
+       in
+         Expect.isTrue
+           (actualString = expectedString andalso cursorIdx = expectedCursorIdx)
+       end)]
+
   val tests =
     [ dhDelete
     , dlDelete
@@ -2301,5 +2321,6 @@ struct
     , dEdelete
     , dbDelete
     , dBDelete
+    , dgeDelete
     ]
 end