add additional tests for 'j' motion

2025-09-20 08:09:35 +01:00
parent ec091b56a3
commit a81d45b3b3
2 changed files with 117 additions and 53 deletions
--- a/test/test-utils.sml
+++ b/test/test-utils.sml
@@ -16,4 +16,21 @@ struct

  fun update (app, cmd) =
    AppUpdate.update (app, cmd, Time.now ())
+
+  fun updateMany (app, str) =
+    let
+      fun loop (pos, app) =
+        if pos = String.size str then
+          app
+        else
+          let
+            val chr = String.sub (str, pos)
+            val chr = InputMsg.CHAR_EVENT chr
+            val app = update (app, chr)
+          in
+            loop (pos + 1, app)
+          end
+    in
+      loop (0, app)
+    end
 end