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

begin refactoring to let cursor move to very last char of file (including unix line ending)

Browse Source
This commit is contained in:
Humza Shahid
2025-09-23 10:50:10 +01:00
parent 8931d4d071
commit 961ce63023
5 changed files with 13 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
test/normal-move.sml
View File

@@ -119,17 +119,17 @@ struct
(* assert *)
Expect.isTrue (oldCursorIdx = 0 andalso cursorIdx = 1)
end)
, test "does not move cursor when cursorIdx is at end of line" (fn _ =>
, test "does not move cursor when cursorIdx is at end of buffer" (fn _ =>
let
(* arrange *)
val app = TestUtils.init "hello world"
val app = AppWith.idx (app, 10)
val app = TestUtils.init "hello world\n"
val app = AppWith.idx (app, 11)
(* act *)
val {cursorIdx, ...} = TestUtils.update (app, CHAR_EVENT #"l")
in
(* assert *)
Expect.isTrue (cursorIdx = 10)
Expect.isTrue (cursorIdx = 11)
end)
, test "moves cursor to char past newline when newline is preceded by char"
(fn _ =>
@@ -1362,13 +1362,14 @@ struct
* *)
let
(* arrange *)
val app = TestUtils.init "01234\n56789\n"
val str = "01234\n56789\n"
val app = TestUtils.init str
(* act *)
val app = TestUtils.update (app, CHAR_EVENT #"G")
in
(* assert *)
Expect.isTrue (getChr app = #"9")
Expect.isTrue (#cursorIdx app = String.size str - 1)
end)]
val percentMove = describe "move motion '%'"