From 2cc7bebbd79d82a77d80bc834d0979d722deade3 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Mon, 25 Nov 2024 22:13:02 +0000
Subject: [PATCH] add tests for caret ^ motion

---
 test/test.sml | 89 ++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 88 insertions(+), 1 deletion(-)

diff --git a/test/test.sml b/test/test.sml
index 525276a..af96d35 100644
--- a/test/test.sml
+++ b/test/test.sml
@@ -994,6 +994,93 @@ val dlrMove = describe "move motion '$'"
          end)
   ]
 
-val tests = concat [hMove, lMove, jMove, kMove, wMove, WMove, zeroMove, dlrMove]
+val caretMove = describe "move motion '^'"
+  [ test
+      "moves cursor to first non-space char in first line\
+      \when first line starts with spaces\
+      \and cursor is on first space"
+      (fn _ =>
+         let
+           (* arrange *)
+           val buffer = LineGap.fromString "   3ello world\n"
+           val app = AppType.init (buffer, 0, 0)
+
+           (* act *)
+           val (app, _) = AppUpdate.update (app, CHAR_EVENT #"^")
+         in
+           (* assert *)
+           Expect.isTrue (getChr app = #"3")
+         end)
+  , test
+      "moves cursor to first non-space char in first line\
+      \when first line starts with space\
+      \and cursor is after first non-space char"
+      (fn _ =>
+         let
+           (* arrange *)
+           val buffer = LineGap.fromString "   3ell7 world\n"
+           val app = AppType.init (buffer, 0, 0)
+           val app = withIdx (app, 7)
+
+           (* act *)
+           val (app, _) = AppUpdate.update (app, CHAR_EVENT #"^")
+         in
+           (* assert *)
+           Expect.isTrue (getChr app = #"3")
+         end)
+  , test
+      "moves cursor to first non-space char\ 
+      \when cursor is after first line\
+      \and before first non-space char"
+      (fn _ =>
+         let
+           (* arrange *)
+           val buffer = LineGap.fromString "hello\n   world\n"
+           val app = AppType.init (buffer, 0, 0)
+           val app = withIdx (app, 7)
+
+           (* act *)
+           val (app, _) = AppUpdate.update (app, CHAR_EVENT #"^")
+         in
+           (* assert *)
+           Expect.isTrue (getChr app = #"w")
+         end)
+  , test
+      "moves cursor to first non-space char\ 
+      \when cursor is after first line\
+      \and after first non-space char"
+      (fn _ =>
+         let
+           (* arrange *)
+           val buffer = LineGap.fromString "hello\n   world\n"
+           val app = AppType.init (buffer, 0, 0)
+           val app = withIdx (app, 11)
+
+           (* act *)
+           val (app, _) = AppUpdate.update (app, CHAR_EVENT #"^")
+         in
+           (* assert *)
+           Expect.isTrue (getChr app = #"w")
+         end)
+  , test "leaves cursor in same position when on '\\n'" (fn _ =>
+      let
+        (* arrange *)
+        val buffer = LineGap.fromString "hel\nlo\n"
+        val app = AppType.init (buffer, 0, 0)
+        val app = withIdx (app, 3)
+        val oldIdx = #cursorIdx app
+
+        (* act *)
+        val (app, _) = AppUpdate.update (app, CHAR_EVENT #"^")
+        val newIdx = #cursorIdx app
+      in
+        (* assert *)
+        Expect.isTrue (newIdx = oldIdx)
+      end)
+  ]
+
+
+val tests = concat
+  [hMove, lMove, jMove, kMove, wMove, WMove, zeroMove, dlrMove, caretMove]
 
 val _ = run tests