done adding tests for when cursor is on a space, for 'daw' motion
This commit is contained in:
@@ -4517,6 +4517,52 @@ struct
|
||||
in
|
||||
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
||||
end)
|
||||
, test
|
||||
"deletes trailing spaces when cursor is on word \
|
||||
\that has multiple trailing spaces after it"
|
||||
(fn _ =>
|
||||
let
|
||||
(* arrange *)
|
||||
val originalString = "hello again world\n"
|
||||
val app = TestUtils.init originalString
|
||||
val app = AppWith.idx (app, 7)
|
||||
|
||||
(* act *)
|
||||
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "daw")
|
||||
|
||||
(* assert *)
|
||||
val expectedString = "hello world\n"
|
||||
val actualString = LineGap.toString buffer
|
||||
|
||||
val expectedCursorIdx = 6
|
||||
in
|
||||
Expect.isTrue
|
||||
(actualString = expectedString
|
||||
andalso cursorIdx = expectedCursorIdx)
|
||||
end)
|
||||
, test
|
||||
"deletes last world on line when cursor is on space \
|
||||
\which immediately precedes last word"
|
||||
(fn _ =>
|
||||
let
|
||||
(* arrange *)
|
||||
val originalString = "hello again world\n"
|
||||
val app = TestUtils.init originalString
|
||||
val app = AppWith.idx (app, 13)
|
||||
|
||||
(* act *)
|
||||
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "daw")
|
||||
|
||||
(* assert *)
|
||||
val expectedString = "hello again\n"
|
||||
val actualString = LineGap.toString buffer
|
||||
|
||||
val expectedCursorIdx = 10
|
||||
in
|
||||
Expect.isTrue
|
||||
(actualString = expectedString
|
||||
andalso cursorIdx = expectedCursorIdx)
|
||||
end)
|
||||
]
|
||||
|
||||
val tests =
|
||||
|
||||
1
todo.md
1
todo.md
@@ -2,6 +2,7 @@
|
||||
|
||||
- Add tests for:
|
||||
- Test delete-around-word/WORD
|
||||
- Delete-around-word has tests for when cursor is on space (needs tests for alpha and punctuation too)
|
||||
- Reimple `%` motion and `d%` motion.
|
||||
- They should both search for the next character in any pair, the same way in Vim
|
||||
- Add tests for reimplemented movements and motions
|
||||
|
||||
Reference in New Issue
Block a user