add tests for 'yk' motion (next: implement 'yj' motion and test it)

2026-01-14 04:49:41 +00:00
parent 66f1fb0b5e
commit e1077b7780
5 changed files with 190 additions and 6 deletions
--- a/test/test-utils.sml
+++ b/test/test-utils.sml
@@ -54,4 +54,18 @@ struct
    in
      loop (#msgs app)
    end
+
+  fun expectNoYank (app: AppType.app_type) =
+    let
+      open MailboxType
+      open DrawMsg
+      open Railroad
+      open Railroad.Test
+
+      fun loop (DRAW (YANK _) :: _) = Expect.isTrue false
+        | loop (hd :: tl) = loop tl
+        | loop ([]) = Expect.isTrue true
+    in
+      loop (#msgs app)
+    end
 end