humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add tests for cursor movement 'gg', which means all cursor movements have tests now. Next: add tests for delete motions.

Browse Source
This commit is contained in:
Humza Shahid
2025-03-22 20:58:39 +00:00
parent dc3c1340bf
commit cbc1359de1
1 changed files with 58 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
test/normal-move.sml
View File

@@ -2100,6 +2100,63 @@ struct
end)
]
val ggMove = describe "move motion 'gg'"
[ test "moves cursor to start when cursor is at end" (fn _ =>
let
(* arrange *)
val buffer = LineGap.fromString "hello world"
val app = AppType.init (buffer, 0, 0)
val app = withIdx (app, 10)
(* act *)
val app = updateMany (app, "gg")
in
(* assert *)
Expect.isTrue (getChr app = #"h")
end)
, test "moves cursor to start when cursor is in middle" (fn _ =>
let
(* arrange *)
val buffer = LineGap.fromString "hello world"
val app = AppType.init (buffer, 0, 0)
val app = withIdx (app, 5)
(* act *)
val app = updateMany (app, "gg")
in
(* assert *)
Expect.isTrue (getChr app = #"h")
end)
, test "leaves cursor in same place when cursor is already at start"
(fn _ =>
let
(* arrange *)
val buffer = LineGap.fromString "hello world"
val app = AppType.init (buffer, 0, 0)
(* act *)
val app = updateMany (app, "gg")
in
(* assert *)
Expect.isTrue (getChr app = #"h")
end)
, test "is cancellable by pressing escape" (fn _ =>
let
(* arrange *)
val buffer = LineGap.fromString "hello world"
val app = AppType.init (buffer, 0, 0)
val app = withIdx (app, 5)
(* act *)
val app1 = AppUpdate.update (app, CHAR_EVENT #"g")
val app2 = AppUpdate.update (app1, KEY_ESC)
val app3 = AppUpdate.update (app2, CHAR_EVENT #"g")
in
(* assert *)
Expect.isTrue (#cursorIdx app3 = 5)
end)
]
val tests = concat
[ hMove
, jMove
@@ -2121,5 +2178,6 @@ struct
, TMove
, fMove
, FMove
, ggMove
]
end