add tests for 'ye' yank motion

2026-05-04 15:44:34 +01:00
parent a65338204d
commit 9520f683db
3 changed files with 177 additions and 2 deletions
--- a/shf/test/test-utils.sml
+++ b/shf/test/test-utils.sml
@@ -25,6 +25,18 @@ struct
      loop (0, app)
    end

+  fun isStringYanked (app: AppType.app_type, expectedString) =
+    let
+      open MailboxType
+      open DrawMsg
+
+      fun loop (DRAW (YANK actualString) :: _) = expectedString = actualString
+        | loop (hd :: tl) = loop tl
+        | loop ([]) = false
+    in
+      loop (#msgs app)
+    end
+
  fun expectYank (app: AppType.app_type, expectedString) =
    let
      open MailboxType