8220 lines
284 KiB
Standard ML
8220 lines
284 KiB
Standard ML
structure NormalDeleteTests =
|
|
struct
|
|
open Railroad
|
|
open Railroad.Test
|
|
open InputMsg
|
|
|
|
|
|
fun printVec pv =
|
|
let
|
|
val outputList = PersistentVector.toList pv
|
|
val str =
|
|
List.map
|
|
(fn {start, finish} =>
|
|
"{start = " ^ Int.toString start ^ ", finish = "
|
|
^ Int.toString finish ^ "}") outputList
|
|
val str = String.concatWith "\n " str ^ "\n"
|
|
in
|
|
print str
|
|
end
|
|
|
|
|
|
val dhDelete = describe "delete motion 'dh'"
|
|
[ test "does not delete when cursor is at index 0" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val app = TestUtils.updateMany (app, "dh")
|
|
|
|
(* assert *)
|
|
val expectedString = originalString
|
|
val actualString = LineGap.toString (#buffer app)
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
, test "does not delete when character before cursor is a newline" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val app = TestUtils.updateMany (app, "dh")
|
|
|
|
(* assert *)
|
|
val expectedString = originalString
|
|
val actualString = LineGap.toString (#buffer app)
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
, test "deletes one char to the left when on a non-newline" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 5)
|
|
|
|
(* act *)
|
|
val app = TestUtils.updateMany (app, "dh")
|
|
|
|
(* assert *)
|
|
val expectedString = "hell world\n"
|
|
val actualString = LineGap.toString (#buffer app)
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
, test "moves cursor left by one after deleting left char" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, ...} = TestUtils.updateMany (app, "dh")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (cursorIdx = originalIdx - 1)
|
|
end)
|
|
, test "deletes 3 chars and moves cursor left by 3 when count is 3" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "3dh")
|
|
|
|
(* assert *)
|
|
val expectedString = "he world\n"
|
|
val deleted3CharsInString = expectedString = LineGap.toString buffer
|
|
val cursorIdxIsDecrementedBy3 = cursorIdx = originalIdx - 3
|
|
in
|
|
Expect.isTrue
|
|
(cursorIdxIsDecrementedBy3 andalso deleted3CharsInString)
|
|
end)
|
|
, test
|
|
"deletes until start column when \
|
|
\count is greater than current column"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "9dh")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = " world\n"
|
|
val stringIsExpected = actualString = expectedString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = cursorIdx = expectedCursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/he")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dh")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list by 1 when we delete a single char" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 1
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/wo")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dh")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val expectedSearchList =
|
|
List.map
|
|
(fn {start, finish} => {start = start - 1, finish = finish - 1})
|
|
oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
in
|
|
Expect.isTrue (newSearchList = expectedSearchList)
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/helloworld")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dh")
|
|
|
|
(* assert *)
|
|
val expectedSearchList = [{start = 0, finish = 9}]
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val assertion =
|
|
PersistentVector.isEmpty (#searchList app)
|
|
andalso newSearchList = expectedSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend \
|
|
\after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello one\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dh")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[{start = 4, finish = 4}, {start = 6, finish = 6}]
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedNewSearchList = [{start = 4, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 3
|
|
val originalString = "hello one\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dh")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val assertion =
|
|
oldSearchList = [{start = 0, finish = 4}]
|
|
andalso PersistentVector.isEmpty (#searchList newApp)
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
(* 'dl' motion and 'x' motion have identical behaviour *)
|
|
val dlDelete = describe "delete motion 'dl'"
|
|
[ test
|
|
"deletes last char and moves cursor back by 1 \
|
|
\when next char is a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val originalIdx = 4
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dl")
|
|
|
|
(* assert *)
|
|
val expectedString = "hell\nworld\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = originalIdx - 1
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test "deletes char that cursor is currently on when not on newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dl")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "ello world\n"
|
|
val stringIsExpected = actualString = expectedString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = cursorIdx = expectedCursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test "does not delete any characters or move the cursor when on a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello\n\nworld\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dl")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val stringIsExpected = actualString = expectedString
|
|
|
|
val expectedCursorIdx = originalIdx
|
|
val cursorIdxIsExpected = cursorIdx = expectedCursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"does not delete past newline when specifying a range \
|
|
\greater than number of columns"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 2
|
|
val originalString = "hello\nworld\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "33dl")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "he\nworld\n"
|
|
val stringIsExpected = actualString = expectedString
|
|
|
|
val expectedCursorIdx = 1
|
|
val cursorIdxIsExpected = cursorIdx = expectedCursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"moves cursor to last newline after deleting \
|
|
\all non-newline chars on last line \
|
|
\and the original string ends with a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\nworld\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "33dl")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello\n\n"
|
|
val stringIsExpected = actualString = expectedString
|
|
|
|
val expectedCursorIdx = String.size expectedString - 1
|
|
val cursorIdxIsExpected = cursorIdx = expectedCursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"moves cursor to last newline after deleting \
|
|
\all non-newline chars on last line \
|
|
\and the original string does not end with a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\nworld"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "33dl")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello\n"
|
|
val stringIsExpected = actualString = expectedString
|
|
|
|
val expectedCursorIdx = 4
|
|
val cursorIdxIsExpected = cursorIdx = expectedCursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/he")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dl")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list by 1 when we delete a single char" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 1
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/wo")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dl")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val expectedSearchList =
|
|
List.map
|
|
(fn {start, finish} => {start = start - 1, finish = finish - 1})
|
|
oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
in
|
|
Expect.isTrue (newSearchList = expectedSearchList)
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/helloworld")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dl")
|
|
|
|
(* assert *)
|
|
val expectedSearchList = [{start = 0, finish = 9}]
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val assertion =
|
|
PersistentVector.isEmpty (#searchList app)
|
|
andalso newSearchList = expectedSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend \
|
|
\after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello one\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dl")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[{start = 4, finish = 4}, {start = 6, finish = 6}]
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedNewSearchList = [{start = 4, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer \after buffer is deleted"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 3
|
|
val originalString = "hello one\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dl")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val assertion =
|
|
oldSearchList = [{start = 0, finish = 4}]
|
|
andalso PersistentVector.isEmpty (#searchList newApp)
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val djDelete = describe "delete motion 'dj'"
|
|
[ test "does not delete when cursor is on last line" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val originalIdx = String.size originalString - 3
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dj")
|
|
|
|
(* assert *)
|
|
val expectedString = originalString
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = originalIdx
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test "does not delete when there is only one line" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dj")
|
|
|
|
(* assert *)
|
|
val expectedString = originalString
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = originalIdx
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"deletes when cursor is on first line and there are at least two lines"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dj")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"deletes first two lines when there are three lines \
|
|
\and cursor is on first line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello\nworld\nbye world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dj")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "bye world\n"
|
|
val stringIsExpected = actualString = expectedString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = cursorIdx = expectedCursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"deletes last two lines when there are three lines \
|
|
\and cursor is on second line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\nworld\nbye world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dj")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello\n"
|
|
val stringIsExpected = actualString = expectedString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = cursorIdx = expectedCursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"leaves a newline at the end when deleting the whole file \
|
|
\and file ends with a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "33dj")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"leaves a newline at the end when deleting the whole file \
|
|
\and file does not end with a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "33dj")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test "deletes two lines when cursor is on a newline" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "\nhello\nworld\ntrello\nbrillo\n"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dj")
|
|
|
|
(* assert *)
|
|
val expectedString = "world\ntrello\nbrillo\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello\nworld\ntest\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/he")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dj")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete lines preceding match"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello\nworld\ntest\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/test")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dj")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 12, finish = 15}]
|
|
val expectedNewSearchList = [{start = 0, finish = 3}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\nworld\ntest\nagain\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello\nag")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dj")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\noorld\ntest\nooooo\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o\no+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dj")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 4, finish = 7}]
|
|
val expectedNewSearchList = [{start = 4, finish = 10}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\nworld\ntest\nagain\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello\nworld")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dj")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val ddDelete = describe "delete motion 'dd'"
|
|
[ test
|
|
"deletes last line when there is more than one line \
|
|
\and cursor is on last line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val originalIdx = String.size originalString - 3
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dd")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"leaves a newline in the buffer \
|
|
\when deleting and there is only one line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dd")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"deletes when cursor is on first line and there are at least two lines"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dd")
|
|
|
|
(* assert *)
|
|
val expectedString = "world\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"leaves a newline at the end when deleting the whole file using a count \
|
|
\and file ends with a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "33dd")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"leaves a newline at the end when deleting the whole file \
|
|
\and file does not end with a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "33dd")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test
|
|
"deletes just newline when cursor is on a line \
|
|
\that contains only a single newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "\nhello\nworld\n"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {cursorIdx, buffer, ...} = TestUtils.updateMany (app, "dd")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello\nworld\n"
|
|
val actualString = LineGap.toString buffer
|
|
val stringIsExpected = expectedString = actualString
|
|
|
|
val expectedCursorIdx = 0
|
|
val cursorIdxIsExpected = expectedCursorIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIdxIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 13
|
|
val originalString = "hello\nworld\ntest\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dd")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete line preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello\nworld\ntest\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dd")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 0, finish = 4}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\nworld\ntest\nagain\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello\nte")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dd")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\norange\noops\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o\no+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dd")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 4, finish = 6}]
|
|
val expectedNewSearchList = [{start = 4, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\nworld\ntest\nagain\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello\nworld")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dd")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dkDelete = describe "delete motion 'dk'"
|
|
[ test "does not delete when cursor is on first line" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val originalIdx = 0
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val expectedString = originalString
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test
|
|
"deletes first two lines, leaving a newline in the buffer \
|
|
\ when there are two lines \and cursor is on second line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val originalIdx = 6
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test
|
|
"deletes last two lines when there are three lines in the buffer \
|
|
\ and cursor is on third line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val originalIdx = 15
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test
|
|
"leaves a buffer containing just a newline when\
|
|
\deleting from last line with a counter greater than total lines"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val originalIdx = 15
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "33dk")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test
|
|
"deletes newline and preceding line when cursor is second line \
|
|
\and second line contains only a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n\nagain\n"
|
|
val originalIdx = 6
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val expectedString = "again\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test
|
|
"deletes just newline and line above when cursor is on third line \
|
|
\and third line contains only a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n\nagain\n"
|
|
val originalString =
|
|
"hello\n\
|
|
\world\n\
|
|
\\n\
|
|
\trello\n\
|
|
\brillo\n"
|
|
val originalIdx = 12
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val expectedString =
|
|
"hello\n\
|
|
\trello\n\
|
|
\brillo\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test
|
|
"deletes second and third lines when cursor is on \
|
|
\last non-newline character of third line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n\nagain\n"
|
|
val originalString =
|
|
"hello\n\
|
|
\world\n\
|
|
\trello\n\
|
|
\brillo\n"
|
|
val originalIdx = 17
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val expectedString =
|
|
"hello\n\
|
|
\brillo\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test
|
|
"deletes last two lines when cursor is on last line \
|
|
\and last line only has a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString =
|
|
"hello\n\
|
|
\world\n\
|
|
\\n"
|
|
val originalIdx = String.size originalString - 1
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test
|
|
"moves cursor to newline at end of file \
|
|
\when cursor is two lines below"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString =
|
|
"hello\n\
|
|
\world\n\
|
|
\\n\
|
|
\world\n\
|
|
\hello\n"
|
|
val originalIdx = String.size originalString - 2
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val expectedString =
|
|
"hello\n\
|
|
\world\n\
|
|
\\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = String.size expectedString - 1
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 13
|
|
val originalString = "hello\nworld\ntest\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dk")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete line preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\nworld\ntest\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/test")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 12, finish = 15}]
|
|
val expectedNewSearchList = [{start = 0, finish = 3}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 13
|
|
val originalString = "hello\nworld\ntest\nagain\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello\nag")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 13
|
|
val originalString = "hello\nopple\ncarrot\nooorange\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o\no+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 4, finish = 6}]
|
|
val expectedNewSearchList = [{start = 4, finish = 8}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 13
|
|
val originalString = "hello\nworld\ntest\nagain\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world\ntest")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dk")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 15}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dwDelete = describe "delete motion 'dw'"
|
|
[ test
|
|
"deletes last char and moves cursor back by one \
|
|
\when used on last char of last word in buffer \
|
|
\and buffer ends with a newline preceded by a non-newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val originalIdx = String.size originalString - 2
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello worl\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = String.size expectedString - 2
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test "deletes second word as expected when there are three words" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
|
|
(* all the different positions the cursor can be
|
|
* on the second word *)
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val newApp1 = TestUtils.updateMany (app1, "dw")
|
|
val newApp2 = TestUtils.updateMany (app2, "dw")
|
|
val newApp3 = TestUtils.updateMany (app3, "dw")
|
|
val newApp4 = TestUtils.updateMany (app4, "dw")
|
|
val newApp5 = TestUtils.updateMany (app5, "dw")
|
|
|
|
(* assert *)
|
|
val expectedString1 = "hello again\n"
|
|
val expectedString2 = "hello wagain\n"
|
|
val expectedString3 = "hello woagain\n"
|
|
val expectedString4 = "hello woragain\n"
|
|
val expectedString5 = "hello worlagain\n"
|
|
|
|
val actualString1 = LineGap.toString (#buffer newApp1)
|
|
val actualString2 = LineGap.toString (#buffer newApp2)
|
|
val actualString3 = LineGap.toString (#buffer newApp3)
|
|
val actualString4 = LineGap.toString (#buffer newApp4)
|
|
val actualString5 = LineGap.toString (#buffer newApp5)
|
|
|
|
val stringsAreExpected =
|
|
expectedString1 = actualString1
|
|
andalso expectedString2 = actualString2
|
|
andalso expectedString3 = actualString3
|
|
andalso expectedString4 = actualString4
|
|
andalso expectedString5 = actualString5
|
|
|
|
val expectedCursor1 = 6
|
|
val expectedCursor2 = 7
|
|
val expectedCursor3 = 8
|
|
val expectedCursor4 = 9
|
|
val expectedCursor5 = 10
|
|
|
|
val actualCursor1 = #cursorIdx newApp1
|
|
val actualCursor2 = #cursorIdx newApp2
|
|
val actualCursor3 = #cursorIdx newApp3
|
|
val actualCursor4 = #cursorIdx newApp4
|
|
val actualCursor5 = #cursorIdx newApp5
|
|
|
|
val cursorsAreExpected =
|
|
expectedCursor1 = actualCursor1
|
|
andalso expectedCursor2 = actualCursor2
|
|
andalso expectedCursor3 = actualCursor3
|
|
andalso expectedCursor4 = actualCursor4
|
|
andalso expectedCursor5 = actualCursor5
|
|
in
|
|
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
|
end)
|
|
, test "does not delete newline following word" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val expectedString = "\nworld\nagain\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes until first punctuation char when on an alpha char \
|
|
\and there is no space between alpha and punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world!again\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val expectedString = "!world!again\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes until first alpha char when on punctuation \
|
|
\and there is no space between punctuation and alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "!#%&QWERTY#!\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val expectedString = "QWERTY#!\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes until first alpha char \
|
|
\when cursor is on space and next char is alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "h ello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 1
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes until first alpha char \
|
|
\when cursor is on space, many spaces are ahead, \
|
|
\and first char after spaces is alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "h ello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 3)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val expectedString = "h ello\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 3
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes until first punctuation char \
|
|
\when cursor is on space and next non-space char is punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "! @#$%\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 2)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val expectedString = "! @#$%\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 2
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes last char when on last word \
|
|
\and there is no newline after current word"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "hello world"
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello "
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = 5
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = cursorIdx = expectedIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dw")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 0, finish = 4}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello ag")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello orange oops\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 4, finish = 6}]
|
|
val expectedNewSearchList = [{start = 4, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world test")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dw")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 15}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dWDelete = describe "delete motion 'dW'"
|
|
[ test
|
|
"deletes last char and moves cursor back by one \
|
|
\when used on last char of last word in buffer \
|
|
\and buffer ends with a newline preceded by a non-newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val originalIdx = String.size originalString - 2
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello worl\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = String.size expectedString - 2
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test "deletes second WORD as expected when there are three words" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
(* 'l' in world is replaced with '!'
|
|
* so it fits with the definition of a WORD *)
|
|
val originalString = "hello wor!d again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
|
|
(* all the different positions the cursor can be
|
|
* on the second word *)
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val newApp1 = TestUtils.updateMany (app1, "dW")
|
|
val newApp2 = TestUtils.updateMany (app2, "dW")
|
|
val newApp3 = TestUtils.updateMany (app3, "dW")
|
|
val newApp4 = TestUtils.updateMany (app4, "dW")
|
|
val newApp5 = TestUtils.updateMany (app5, "dW")
|
|
|
|
(* assert *)
|
|
val expectedString1 = "hello again\n"
|
|
val expectedString2 = "hello wagain\n"
|
|
val expectedString3 = "hello woagain\n"
|
|
val expectedString4 = "hello woragain\n"
|
|
val expectedString5 = "hello wor!again\n"
|
|
|
|
val actualString1 = LineGap.toString (#buffer newApp1)
|
|
val actualString2 = LineGap.toString (#buffer newApp2)
|
|
val actualString3 = LineGap.toString (#buffer newApp3)
|
|
val actualString4 = LineGap.toString (#buffer newApp4)
|
|
val actualString5 = LineGap.toString (#buffer newApp5)
|
|
|
|
val stringsAreExpected =
|
|
expectedString1 = actualString1
|
|
andalso expectedString2 = actualString2
|
|
andalso expectedString3 = actualString3
|
|
andalso expectedString4 = actualString4
|
|
andalso expectedString5 = actualString5
|
|
|
|
val expectedCursor1 = 6
|
|
val expectedCursor2 = 7
|
|
val expectedCursor3 = 8
|
|
val expectedCursor4 = 9
|
|
val expectedCursor5 = 10
|
|
|
|
val actualCursor1 = #cursorIdx newApp1
|
|
val actualCursor2 = #cursorIdx newApp2
|
|
val actualCursor3 = #cursorIdx newApp3
|
|
val actualCursor4 = #cursorIdx newApp4
|
|
val actualCursor5 = #cursorIdx newApp5
|
|
|
|
val cursorsAreExpected =
|
|
expectedCursor1 = actualCursor1
|
|
andalso expectedCursor2 = actualCursor2
|
|
andalso expectedCursor3 = actualCursor3
|
|
andalso expectedCursor4 = actualCursor4
|
|
andalso expectedCursor5 = actualCursor5
|
|
in
|
|
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
|
end)
|
|
, test "does not delete newline following WORD" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val expectedString = "\nworld\nagain\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"does not delete newline when there is a newline after current word \
|
|
\and there is another word following that newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val expectedString = "h\nworld\nagain\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes past first punctuation char \
|
|
\when on an alpha char and there is no space \
|
|
\between alpha and punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world again\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val expectedString = "again\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes past first alpha char when on punctuation \
|
|
\and there is no space between punctuation and alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "!#%&QWERTY#! hello\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes until first alpha char \
|
|
\when cursor is on space and next char is alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "h ello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 1
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes until first alpha char \
|
|
\when cursor is on space, many spaces are ahead, \
|
|
\and first char after spaces is alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "h ello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 3)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val expectedString = "h ello\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 3
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes until first punctuation char \
|
|
\when cursor is on space and next non-space char is punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "! @#$%\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 2)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val expectedString = "! @#$%\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 2
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dW")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 0, finish = 4}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello ag")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello orange oops\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 4, finish = 6}]
|
|
val expectedNewSearchList = [{start = 4, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world test")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dW")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 15}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val deDelete = describe "delete motion 'de'"
|
|
[ test
|
|
"deletes last char and moves cursor back by one \
|
|
\when used on last char of last word in buffer \
|
|
\and buffer ends with a newline preceded by a non-newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val originalIdx = String.size originalString - 2
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello worl\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = String.size expectedString - 2
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test "deletes second word as expected when there are three words" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
|
|
(* all the different positions the cursor can be
|
|
* on the second word *)
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val newApp1 = TestUtils.updateMany (app1, "de")
|
|
val newApp2 = TestUtils.updateMany (app2, "de")
|
|
val newApp3 = TestUtils.updateMany (app3, "de")
|
|
val newApp4 = TestUtils.updateMany (app4, "de")
|
|
val newApp5 = TestUtils.updateMany (app5, "de")
|
|
|
|
(* assert *)
|
|
val expectedString1 = "hello again\n"
|
|
val expectedString2 = "hello w again\n"
|
|
val expectedString3 = "hello wo again\n"
|
|
val expectedString4 = "hello wor again\n"
|
|
val expectedString5 = "hello worl\n"
|
|
|
|
val actualString1 = LineGap.toString (#buffer newApp1)
|
|
val actualString2 = LineGap.toString (#buffer newApp2)
|
|
val actualString3 = LineGap.toString (#buffer newApp3)
|
|
val actualString4 = LineGap.toString (#buffer newApp4)
|
|
val actualString5 = LineGap.toString (#buffer newApp5)
|
|
|
|
val stringsAreExpected =
|
|
expectedString1 = actualString1
|
|
andalso expectedString2 = actualString2
|
|
andalso expectedString3 = actualString3
|
|
andalso expectedString4 = actualString4
|
|
andalso expectedString5 = actualString5
|
|
|
|
val expectedCursor1 = 6
|
|
val expectedCursor2 = 7
|
|
val expectedCursor3 = 8
|
|
val expectedCursor4 = 9
|
|
val expectedCursor5 = 9
|
|
|
|
val actualCursor1 = #cursorIdx newApp1
|
|
val actualCursor2 = #cursorIdx newApp2
|
|
val actualCursor3 = #cursorIdx newApp3
|
|
val actualCursor4 = #cursorIdx newApp4
|
|
val actualCursor5 = #cursorIdx newApp5
|
|
|
|
val cursorsAreExpected =
|
|
expectedCursor1 = actualCursor1
|
|
andalso expectedCursor2 = actualCursor2
|
|
andalso expectedCursor3 = actualCursor3
|
|
andalso expectedCursor4 = actualCursor4
|
|
andalso expectedCursor5 = actualCursor5
|
|
in
|
|
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
|
end)
|
|
, test
|
|
"deletes from cursor until newline when on last word \
|
|
\before a newline and another word follows that newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val expectedString = "h\nworld\nagain\n"
|
|
(* moves cursor back by one when next char is newline *)
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes until first punctuation char when on an alpha char \
|
|
\and there is no space between alpha and punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world!again\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val expectedString = "!world!again\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes until first alpha char when on punctuation \
|
|
\and there is no space between punctuation and alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "!#%&QWERTY#!\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val expectedString = "QWERTY#!\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes end of next world \
|
|
\when cursor is on space and next char is alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "h ello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val expectedString = "h world\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 1
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes next world \
|
|
\when cursor is on space, many spaces are ahead, \
|
|
\and first char after spaces is alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "h ello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 3)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val expectedString = "h world\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 3
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes next word \
|
|
\when cursor is on space and next non-space char is punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "! @#$% world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 2)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val expectedString = "! world\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 2
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "de")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 1, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello a")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello orange oops\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello +o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 6}]
|
|
val expectedNewSearchList = [{start = 0, finish = 8}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "de")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dEdelete = describe "delete motion 'dE'"
|
|
[ test
|
|
"deletes last char and moves cursor back by one \
|
|
\when used on last char of last word in buffer \
|
|
\and buffer ends with a newline preceded by a non-newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val originalIdx = String.size originalString - 2
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello worl\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = String.size expectedString - 2
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test "deletes second word as expected when there are three words" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
(* "world" is spelled with an ! instead of an l
|
|
* to make the second word fit the definition of a WORD *)
|
|
val originalString = "hello wor!d again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
|
|
(* all the different positions the cursor can be
|
|
* on the second word *)
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val newApp1 = TestUtils.updateMany (app1, "dE")
|
|
val newApp2 = TestUtils.updateMany (app2, "dE")
|
|
val newApp3 = TestUtils.updateMany (app3, "dE")
|
|
val newApp4 = TestUtils.updateMany (app4, "dE")
|
|
val newApp5 = TestUtils.updateMany (app5, "dE")
|
|
|
|
(* assert *)
|
|
val expectedString1 = "hello again\n"
|
|
val expectedString2 = "hello w again\n"
|
|
val expectedString3 = "hello wo again\n"
|
|
val expectedString4 = "hello wor again\n"
|
|
val expectedString5 = "hello wor!\n"
|
|
|
|
val actualString1 = LineGap.toString (#buffer newApp1)
|
|
val actualString2 = LineGap.toString (#buffer newApp2)
|
|
val actualString3 = LineGap.toString (#buffer newApp3)
|
|
val actualString4 = LineGap.toString (#buffer newApp4)
|
|
val actualString5 = LineGap.toString (#buffer newApp5)
|
|
|
|
val stringsAreExpected =
|
|
expectedString1 = actualString1
|
|
andalso expectedString2 = actualString2
|
|
andalso expectedString3 = actualString3
|
|
andalso expectedString4 = actualString4
|
|
andalso expectedString5 = actualString5
|
|
|
|
val expectedCursor1 = 6
|
|
val expectedCursor2 = 7
|
|
val expectedCursor3 = 8
|
|
val expectedCursor4 = 9
|
|
val expectedCursor5 = 9
|
|
|
|
val actualCursor1 = #cursorIdx newApp1
|
|
val actualCursor2 = #cursorIdx newApp2
|
|
val actualCursor3 = #cursorIdx newApp3
|
|
val actualCursor4 = #cursorIdx newApp4
|
|
val actualCursor5 = #cursorIdx newApp5
|
|
|
|
val cursorsAreExpected =
|
|
expectedCursor1 = actualCursor1
|
|
andalso expectedCursor2 = actualCursor2
|
|
andalso expectedCursor3 = actualCursor3
|
|
andalso expectedCursor4 = actualCursor4
|
|
andalso expectedCursor5 = actualCursor5
|
|
in
|
|
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
|
end)
|
|
, test
|
|
"deletes from cursor until newline when on last word \
|
|
\before a newline and another word follows that newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val expectedString = "h\nworld\nagain\n"
|
|
(* moves cursor back by one when next char is newline *)
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes beyond first punctuation char when on an alpha char \
|
|
\and there is no space between alpha and punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world again\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val expectedString = " again\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes beyond first alpha char when on punctuation \
|
|
\and there is no space between punctuation and alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "!#%&QWERTY#!\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes end of next word \
|
|
\when cursor is on space and next char is alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "h e!!o world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val expectedString = "h world\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 1
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes next world \
|
|
\when cursor is on space, many spaces are ahead, \
|
|
\and first char after spaces is alpha"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "h e!!o world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 3)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val expectedString = "h world\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 3
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes next word \
|
|
\when cursor is on space and next non-space char is punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "! @#$% world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 2)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val expectedString = "! world\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedCursor = 2
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dE")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 1, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello a")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello orange oops\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello +o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 6}]
|
|
val expectedNewSearchList = [{start = 0, finish = 8}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dE")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dbDelete = describe "delete motion 'db'"
|
|
[ test
|
|
"deletes all characters in last word except last character \
|
|
\when cursor is on last character of last word in buffer"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val originalIdx = String.size originalString - 2
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello d\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = String.size expectedString - 2
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test "deletes second word as expected when there are three words" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
|
|
(* all the different positions the cursor can be
|
|
* on the second word *)
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
val app6 = AppWith.idx (app, 11)
|
|
|
|
(* act *)
|
|
val newApp1 = TestUtils.updateMany (app1, "db")
|
|
val newApp2 = TestUtils.updateMany (app2, "db")
|
|
val newApp3 = TestUtils.updateMany (app3, "db")
|
|
val newApp4 = TestUtils.updateMany (app4, "db")
|
|
val newApp5 = TestUtils.updateMany (app5, "db")
|
|
val newApp6 = TestUtils.updateMany (app6, "db")
|
|
|
|
(* assert *)
|
|
val expectedString1 = "world again\n"
|
|
val expectedString2 = "hello orld again\n"
|
|
val expectedString3 = "hello rld again\n"
|
|
val expectedString4 = "hello ld again\n"
|
|
val expectedString5 = "hello d again\n"
|
|
val expectedString6 = "hello again\n"
|
|
|
|
val actualString1 = LineGap.toString (#buffer newApp1)
|
|
val actualString2 = LineGap.toString (#buffer newApp2)
|
|
val actualString3 = LineGap.toString (#buffer newApp3)
|
|
val actualString4 = LineGap.toString (#buffer newApp4)
|
|
val actualString5 = LineGap.toString (#buffer newApp5)
|
|
val actualString6 = LineGap.toString (#buffer newApp6)
|
|
|
|
val stringsAreExpected =
|
|
expectedString1 = actualString1
|
|
andalso expectedString2 = actualString2
|
|
andalso expectedString3 = actualString3
|
|
andalso expectedString4 = actualString4
|
|
andalso expectedString5 = actualString5
|
|
andalso expectedString6 = actualString6
|
|
|
|
val expectedCursor1 = 0
|
|
val expectedCursor2 = 6
|
|
val expectedCursor3 = 6
|
|
val expectedCursor4 = 6
|
|
val expectedCursor5 = 6
|
|
val expectedCursor6 = 6
|
|
|
|
val actualCursor1 = #cursorIdx newApp1
|
|
val actualCursor2 = #cursorIdx newApp2
|
|
val actualCursor3 = #cursorIdx newApp3
|
|
val actualCursor4 = #cursorIdx newApp4
|
|
val actualCursor5 = #cursorIdx newApp5
|
|
val actualCursor6 = #cursorIdx newApp6
|
|
|
|
val cursorsAreExpected =
|
|
expectedCursor1 = actualCursor1
|
|
andalso expectedCursor2 = actualCursor2
|
|
andalso expectedCursor3 = actualCursor3
|
|
andalso expectedCursor4 = actualCursor4
|
|
andalso expectedCursor5 = actualCursor5
|
|
andalso expectedCursor6 = actualCursor6
|
|
in
|
|
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
|
end)
|
|
, test
|
|
"deletes newline and preceding word when cursor is \
|
|
\on first character of word that has a newline before it"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val expectedString = "world\nagain\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes first punctuation char when on an alpha char \
|
|
\which is immediately preceded by a punctuation char"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world!again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val expectedString = "helloworld!again\n"
|
|
val expectedCursor = 5
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes chars until reaching punctuation when \
|
|
\cursor is on alpha char, preceded by more alpha chars, \
|
|
\until preceded by punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world!again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello!orld!again\n"
|
|
val expectedCursor = 6
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes alpha chars when on punctuation which is immediately preceded \
|
|
\by more alpha chars, until preceded by punctuation again"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world!again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 11)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello!!again\n"
|
|
val expectedCursor = 6
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "deletes spaces and word before spaces, when cursor is on space"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 13)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val expectedString = " again\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "does not delete when cursor is on first character of first line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val expectedString = originalString
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "db")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 1, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 12
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello ag")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 12
|
|
val originalString = "hello orange oops\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello +o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 6}]
|
|
val expectedNewSearchList = [{start = 0, finish = 8}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dBDelete = describe "delete motion 'dB'"
|
|
[ test
|
|
"deletes all characters in last WORD except last character \
|
|
\when cursor is on last character of last WORD in buffer"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val originalIdx = String.size originalString - 2
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dB")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello d\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedIdx = String.size expectedString - 2
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test "deletes second WORD as expected when there are three WORDs" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
(* 'l' in world is replaced with '!'
|
|
* so it fits with the definition of a WORD *)
|
|
val originalString = "hello wor!d again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
|
|
(* all the different positions the cursor can be
|
|
* on the second word *)
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
val app6 = AppWith.idx (app, 11)
|
|
|
|
(* act *)
|
|
val newApp1 = TestUtils.updateMany (app1, "dB")
|
|
val newApp2 = TestUtils.updateMany (app2, "dB")
|
|
val newApp3 = TestUtils.updateMany (app3, "dB")
|
|
val newApp4 = TestUtils.updateMany (app4, "dB")
|
|
val newApp5 = TestUtils.updateMany (app5, "dB")
|
|
val newApp6 = TestUtils.updateMany (app6, "dB")
|
|
|
|
(* assert *)
|
|
val expectedString1 = "wor!d again\n"
|
|
val expectedString2 = "hello or!d again\n"
|
|
val expectedString3 = "hello r!d again\n"
|
|
val expectedString4 = "hello !d again\n"
|
|
val expectedString5 = "hello d again\n"
|
|
val expectedString6 = "hello again\n"
|
|
|
|
val actualString1 = LineGap.toString (#buffer newApp1)
|
|
val actualString2 = LineGap.toString (#buffer newApp2)
|
|
val actualString3 = LineGap.toString (#buffer newApp3)
|
|
val actualString4 = LineGap.toString (#buffer newApp4)
|
|
val actualString5 = LineGap.toString (#buffer newApp5)
|
|
val actualString6 = LineGap.toString (#buffer newApp6)
|
|
|
|
val stringsAreExpected =
|
|
expectedString1 = actualString1
|
|
andalso expectedString2 = actualString2
|
|
andalso expectedString3 = actualString3
|
|
andalso expectedString4 = actualString4
|
|
andalso expectedString5 = actualString5
|
|
andalso expectedString6 = actualString6
|
|
|
|
val expectedCursor1 = 0
|
|
val expectedCursor2 = 6
|
|
val expectedCursor3 = 6
|
|
val expectedCursor4 = 6
|
|
val expectedCursor5 = 6
|
|
val expectedCursor6 = 6
|
|
|
|
val actualCursor1 = #cursorIdx newApp1
|
|
val actualCursor2 = #cursorIdx newApp2
|
|
val actualCursor3 = #cursorIdx newApp3
|
|
val actualCursor4 = #cursorIdx newApp4
|
|
val actualCursor5 = #cursorIdx newApp5
|
|
val actualCursor6 = #cursorIdx newApp6
|
|
|
|
val cursorsAreExpected =
|
|
expectedCursor1 = actualCursor1
|
|
andalso expectedCursor2 = actualCursor2
|
|
andalso expectedCursor3 = actualCursor3
|
|
andalso expectedCursor4 = actualCursor4
|
|
andalso expectedCursor5 = actualCursor5
|
|
andalso expectedCursor6 = actualCursor6
|
|
in
|
|
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
|
end)
|
|
, test
|
|
"deletes newline and preceding word when cursor is \
|
|
\on first character of word that has a newline before it"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "he!!o\nwor!d\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dB")
|
|
|
|
(* assert *)
|
|
val expectedString = "wor!d\nagain\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes past punctuation char when on an alpha char \
|
|
\which is immediately preceded by a punctuation char"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world!again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dB")
|
|
|
|
(* assert *)
|
|
val expectedString = "world!again\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes chars past punctuation when \
|
|
\cursor is on alpha char, preceded by more alpha chars, \
|
|
\and then preceded by punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "he!!o!wor!d!again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dB")
|
|
|
|
(* assert *)
|
|
val expectedString = "or!d!again\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes alpha and punctuation characters \
|
|
\when string is not separated by spaces"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world!again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 11)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dB")
|
|
|
|
(* assert *)
|
|
val expectedString = "!again\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "deletes spaces and word before spaces, when cursor is on space"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "he!!o again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 13)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dB")
|
|
|
|
(* assert *)
|
|
val expectedString = " again\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "does not delete when cursor is on first character of first line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "db")
|
|
|
|
(* assert *)
|
|
val expectedString = originalString
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dB")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dB")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 1, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 12
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello ag")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dB")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 12
|
|
val originalString = "hello orange oops\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello +o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dB")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 6}]
|
|
val expectedNewSearchList = [{start = 0, finish = 8}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dB")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dgeDelete = describe "delete motion 'dge'"
|
|
[ test "does not delete when cursor is at start of file" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "deletes as expected when on second word and there are three words"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
|
|
(* all the different positions the cursor can be
|
|
* on the second word *)
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val newApp1 = TestUtils.updateMany (app1, "dge")
|
|
val newApp2 = TestUtils.updateMany (app2, "dge")
|
|
val newApp3 = TestUtils.updateMany (app3, "dge")
|
|
val newApp4 = TestUtils.updateMany (app4, "dge")
|
|
val newApp5 = TestUtils.updateMany (app5, "dge")
|
|
|
|
(* assert *)
|
|
val expectedString1 = "hellorld again\n"
|
|
val expectedString2 = "hellrld again\n"
|
|
val expectedString3 = "hellld again\n"
|
|
val expectedString4 = "helld again\n"
|
|
val expectedString5 = "hell again\n"
|
|
|
|
val actualString1 = LineGap.toString (#buffer newApp1)
|
|
val actualString2 = LineGap.toString (#buffer newApp2)
|
|
val actualString3 = LineGap.toString (#buffer newApp3)
|
|
val actualString4 = LineGap.toString (#buffer newApp4)
|
|
val actualString5 = LineGap.toString (#buffer newApp5)
|
|
|
|
val stringsAreExpected =
|
|
expectedString1 = actualString1
|
|
andalso expectedString2 = actualString2
|
|
andalso expectedString3 = actualString3
|
|
andalso expectedString4 = actualString4
|
|
andalso expectedString5 = actualString5
|
|
|
|
val expectedCursor1 = 4
|
|
val expectedCursor2 = 4
|
|
val expectedCursor3 = 4
|
|
val expectedCursor4 = 4
|
|
val expectedCursor5 = 4
|
|
|
|
val actualCursor1 = #cursorIdx newApp1
|
|
val actualCursor2 = #cursorIdx newApp2
|
|
val actualCursor3 = #cursorIdx newApp3
|
|
val actualCursor4 = #cursorIdx newApp4
|
|
val actualCursor5 = #cursorIdx newApp5
|
|
|
|
val cursorsAreExpected =
|
|
expectedCursor1 = actualCursor1
|
|
andalso expectedCursor2 = actualCursor2
|
|
andalso expectedCursor3 = actualCursor3
|
|
andalso expectedCursor4 = actualCursor4
|
|
andalso expectedCursor5 = actualCursor5
|
|
in
|
|
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
|
end)
|
|
, test
|
|
"deletes all characters in word \
|
|
\when on last character of last word in buffer"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, String.size originalString - 2)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hell\n"
|
|
val expectedCursorIdx = String.size expectedString - 2
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "deletes past newline when on first word after newline" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val expectedString = "hellorld\nagain\n"
|
|
val expectedCursor = 4
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes only two chars when cursor is \
|
|
\on an a punctuation char which is immediately preceded \
|
|
\by an alpha char"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world!again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 5)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val expectedString = "hellworld!again\n"
|
|
val expectedCursor = 4
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes only one punctuation char when on an alpha char \
|
|
\which is preceded by punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "!#%&(hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val expectedString = "!#%&lo\n"
|
|
val expectedCursor = 4
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes spaces until reaching non-space char, \
|
|
\when cursor is on space and is preceded by more spaces"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 13)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val expectedString = "hell again\n"
|
|
val expectedCursor = 4
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 15
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dge")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 4, finish = 8}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hellorld")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello orange oops\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hella*")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 3}]
|
|
val expectedNewSearchList = [{start = 0, finish = 4}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dgEDelete = describe "delete motion 'dgE'"
|
|
[ test "does not delete when cursor is at start of file" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgE")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "deletes as expected when on second word and there are three words"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello wor!d again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
|
|
(* all the different positions the cursor can be
|
|
* on the second word *)
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val newApp1 = TestUtils.updateMany (app1, "dgE")
|
|
val newApp2 = TestUtils.updateMany (app2, "dgE")
|
|
val newApp3 = TestUtils.updateMany (app3, "dgE")
|
|
val newApp4 = TestUtils.updateMany (app4, "dgE")
|
|
val newApp5 = TestUtils.updateMany (app5, "dgE")
|
|
|
|
(* assert *)
|
|
val expectedString1 = "hellor!d again\n"
|
|
val expectedString2 = "hellr!d again\n"
|
|
val expectedString3 = "hell!d again\n"
|
|
val expectedString4 = "helld again\n"
|
|
val expectedString5 = "hell again\n"
|
|
|
|
val actualString1 = LineGap.toString (#buffer newApp1)
|
|
val actualString2 = LineGap.toString (#buffer newApp2)
|
|
val actualString3 = LineGap.toString (#buffer newApp3)
|
|
val actualString4 = LineGap.toString (#buffer newApp4)
|
|
val actualString5 = LineGap.toString (#buffer newApp5)
|
|
|
|
val stringsAreExpected =
|
|
expectedString1 = actualString1
|
|
andalso expectedString2 = actualString2
|
|
andalso expectedString3 = actualString3
|
|
andalso expectedString4 = actualString4
|
|
andalso expectedString5 = actualString5
|
|
|
|
val expectedCursor1 = 4
|
|
val expectedCursor2 = 4
|
|
val expectedCursor3 = 4
|
|
val expectedCursor4 = 4
|
|
val expectedCursor5 = 4
|
|
|
|
val actualCursor1 = #cursorIdx newApp1
|
|
val actualCursor2 = #cursorIdx newApp2
|
|
val actualCursor3 = #cursorIdx newApp3
|
|
val actualCursor4 = #cursorIdx newApp4
|
|
val actualCursor5 = #cursorIdx newApp5
|
|
|
|
val cursorsAreExpected =
|
|
expectedCursor1 = actualCursor1
|
|
andalso expectedCursor2 = actualCursor2
|
|
andalso expectedCursor3 = actualCursor3
|
|
andalso expectedCursor4 = actualCursor4
|
|
andalso expectedCursor5 = actualCursor5
|
|
in
|
|
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
|
end)
|
|
, test
|
|
"deletes all characters in word \
|
|
\when on last character of last word in buffer"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello wor!d\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, String.size originalString - 2)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgE")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hell\n"
|
|
val expectedCursorIdx = String.size expectedString - 2
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "deletes past newline when on first word after newline" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n#orld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgE")
|
|
|
|
(* assert *)
|
|
val expectedString = "hellorld\nagain\n"
|
|
val expectedCursor = 4
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes past punctuation \
|
|
\when cursor is on alpha char preceded by punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello!world!again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 5)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgE")
|
|
|
|
(* assert *)
|
|
val expectedString = "world!again\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes all punctuation char until beginning of string \
|
|
\when on alpha char in first WORD, preceded by punctuation"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "!#%&(hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgE")
|
|
|
|
(* assert *)
|
|
val expectedString = "lo\n"
|
|
val expectedCursor = 0
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes spaces until reaching non-space char, \
|
|
\when cursor is on space and is preceded by more spaces"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello again\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 13)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgE")
|
|
|
|
(* assert *)
|
|
val expectedString = "hell again\n"
|
|
val expectedCursor = 4
|
|
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursor = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 15
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dge")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 4, finish = 8}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hellorld")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello orange oops\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hella*")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 3}]
|
|
val expectedNewSearchList = [{start = 0, finish = 4}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dge")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dGDelete = describe "delete motion 'dG'"
|
|
[ test
|
|
"deletes whole buffer, leaving only a newline, \
|
|
\when cursor is on first line of buffer"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 3)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dG")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from second line to end of buffer \
|
|
\when first and second line only contain one newline each"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "\n\nhello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dG")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedCursurIdx = 0
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursurIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test "deletes from second line onwards when cursor is on second line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dG")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "leaves preceding matches unchhanged" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 12
|
|
val originalString = "hello world\ntest again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dG")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 4}]
|
|
val expectedNewSearchList = expectedOldSearchList
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "deletes all matches on deleted line" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 12
|
|
val originalString = "alpha world\ntest again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/a")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dG")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[ {start = 0, finish = 0}
|
|
, {start = 4, finish = 4}
|
|
, {start = 17, finish = 17}
|
|
, {start = 19, finish = 19}
|
|
]
|
|
val expectedNewSearchList =
|
|
[{start = 0, finish = 0}, {start = 4, finish = 4}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dggDelete = describe "delete motion 'dgg'"
|
|
[ test "leaves newline behind when deleting from last line" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgg")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes whole line that cursor is currently on, \
|
|
\and all lines preceding cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgg")
|
|
|
|
(* assert *)
|
|
val expectedString = "again\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedCursurIdx = 0
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursurIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes current line and preceding lines \
|
|
\when current line does not end with a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgg")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes current line and preceding line \
|
|
\when cursor is on a newline preceded by a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "\n\nhello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgg")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello world\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes current line and preceding line \
|
|
\when cursor is on a newline, followed by another newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "\n\n\nhello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dgg")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "\nhello world\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes all matches on deleted line, \
|
|
\and decrements subsequent matches"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "alpha world\ntest again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/a")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dgg")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[ {start = 0, finish = 0}
|
|
, {start = 4, finish = 4}
|
|
, {start = 17, finish = 17}
|
|
, {start = 19, finish = 19}
|
|
]
|
|
val expectedNewSearchList =
|
|
[{start = 5, finish = 5}, {start = 7, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val d0Delete = describe "delete motion 'd0'"
|
|
[ test "does not delete when on first word in buffer" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d0")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "does not delete when cursor is on a newline" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d0")
|
|
|
|
(* assert *)
|
|
val expectedString = originalString
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedCursurIdx = 6
|
|
|
|
val stringIsExpected = expectedString = actualString
|
|
val cursorIsExpected = expectedCursurIdx = cursorIdx
|
|
in
|
|
Expect.isTrue (stringIsExpected andalso cursorIsExpected)
|
|
end)
|
|
, test
|
|
"deletes from cursor to first character in buffer \
|
|
\when cursor is on first line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 3)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d0")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "lo\nworld"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor to up to (not including) \
|
|
\closest newline, when cursor is on second line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d0")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello\norld\n"
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 19
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d0")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d0")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 1, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 9
|
|
val originalString = "hello\nagain\nworld\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello\nin")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d0")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello\nworld\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello\no*")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d0")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 5}]
|
|
val expectedNewSearchList = [{start = 0, finish = 6}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d0")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dDlrDelete = describe "delete motion 'd$'"
|
|
[ test
|
|
"deletes only the last character on the line \
|
|
\and moves cursor back by one index \
|
|
\when cursor is on last character"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 4)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hell\nworld\n"
|
|
val expectedCursorIdx = 3
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from first character in buffer \
|
|
\up to (and excluding) the first newline \
|
|
\when the cursor is on the first character in the buffer"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "\nworld\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from first character in line \
|
|
\up to (and excluding) the next newline \
|
|
\when the cursor is on the first character of second newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\nagain\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello\n\nagain\n"
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from middle character on line to last character in line \
|
|
\when cursor is on middle character"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 2)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "he\nworld\n"
|
|
val expectedCursorIdx = 1
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"does not delete when cursor is on a line \
|
|
\which contains only a single newline and nothing else"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from middle character on last line \
|
|
\when the last line ends with a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello\nw\n"
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from middle character on last line \
|
|
\when the last line does not end with a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello\nw"
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 11
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d$")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello\nworld\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 1, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\nagain\nworld\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello\n\nworld")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 11}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello\nworld\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/\n+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[{start = 5, finish = 5}, {start = 11, finish = 11}]
|
|
val expectedNewSearchList = [{start = 5, finish = 6}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d$")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dCaretDelete = describe "delete motion 'd^'"
|
|
[ test
|
|
"does not delete when cursor is on first character of first line \
|
|
\and first character is not a space"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d^")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes preceding characters when cursor is on \
|
|
\third character of first line, and line starts with an alpha character"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 2)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d^")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "llo\nworld\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes preceding characters on line when \
|
|
\cursor is on third character of second line \
|
|
\and line starts with alpha character"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 8)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d^")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello\nrld\n"
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from start of line until first non-space char \
|
|
\when cursor is on first character of line \
|
|
\and line starts with spaces"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = " hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d^")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor position to first non-space char \
|
|
\when cursor is on last non-space char at end of line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = " hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d^")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = " o\n"
|
|
val expectedCursorIdx = 3
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"does not delete from buffer or move cursor when cursor is on newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d^")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 15
|
|
val originalString = "hello\nworld again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d^")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
|
|
, test "decrements search list when we delete word preceding match" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d^")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 1, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 9
|
|
val originalString = "hello\nworld\nagain\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello\nl")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d^")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 6}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 8
|
|
val originalString = " hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/ +")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d^")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 0, finish = 2}]
|
|
val expectedNewSearchList = [{start = 0, finish = 3}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "d^")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dnDelete = describe "delete motion 'dn'"
|
|
[ test "does not delete or move cursor when there is no search" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dn")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "does not delete when cursor is after first character of last search"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 2)
|
|
|
|
(** perform search **)
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dn")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 2
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "does not delete when cursor is on first character of last search"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(** perform search **)
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dn")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor position to first character of search \
|
|
\when there is a search position after the cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(** perform search **)
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dn")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello whello\n"
|
|
val expectedCursorIdx = 7
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "decrements matches after cursor position" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 6
|
|
val originalString = "hello world hello\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dn")
|
|
|
|
(* assert *)
|
|
val oldSearchList = PersistentVector.toList (#searchList app)
|
|
val newSearchList = PersistentVector.toList (#searchList newApp)
|
|
|
|
val expectedOldSearchList =
|
|
[{start = 0, finish = 4}, {start = 12, finish = 16}]
|
|
val expectedNewSearchList =
|
|
[{start = 0, finish = 4}, {start = 6, finish = 10}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "extends match when match should extend after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello hello\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/(hello)+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dn")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[{start = 0, finish = 4}, {start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 0, finish = 9}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "detects match when we delete in middle of it" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 1
|
|
val originalString = "hello hello hello\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dn")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[ {start = 0, finish = 4}
|
|
, {start = 6, finish = 10}
|
|
, {start = 12, finish = 16}
|
|
]
|
|
val expectedNewSearchList =
|
|
[{start = 1, finish = 5}, {start = 7, finish = 11}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dNDelete = describe "delete motion 'dN'"
|
|
[ test "does not delete or move cursor when there is no search" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dN")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"does not delete when cursor is before first character of first search"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "world hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 2)
|
|
|
|
(** perform search **)
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dN")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 2
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "does not delete when cursor is on first character of first search"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hey hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 4)
|
|
|
|
(** perform search **)
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dN")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 4
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor position to first character of search \
|
|
\when there is a search position before the cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(** perform search **)
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dN")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "orld hello\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"decrements subsequent matches in search list \
|
|
\when we delete prior to last match"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 1
|
|
val originalString = "hello hello hello\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dN")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[ {start = 0, finish = 4}
|
|
, {start = 6, finish = 10}
|
|
, {start = 12, finish = 16}
|
|
]
|
|
val expectedNewSearchList =
|
|
[{start = 5, finish = 9}, {start = 11, finish = 15}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 8
|
|
val originalString = "hhello, ello\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dN")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 1, finish = 5}]
|
|
val expectedNewSearchList = [{start = 0, finish = 4}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"shortens existing match when existing match should shorten after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 7
|
|
val originalString = "test ooooooo hi there\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dN")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 5, finish = 11}]
|
|
val expectedNewSearchList = [{start = 5, finish = 9}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 9
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dN")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[{start = 4, finish = 4}, {start = 7, finish = 7}]
|
|
val expectedNewSearchList = [{start = 4, finish = 4}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dfDelete = describe "delete motion 'df<char>'"
|
|
[ test
|
|
"does not delete when there is no occurrence of <char> \
|
|
\after cursor position"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dff")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"does not delete when cursor is at last occurrence of <char> in buffer"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dfw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes up to <char> when \
|
|
\there is an ocurrence of <char> after cursor's position on same line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hey hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dfy")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = " hello\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes up to <char> when the next occurrence of <char> \
|
|
\is after a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dfr")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "ld\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor's position to second occurrence of <char> \
|
|
\if motion has a count of 2"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "2dfo")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "rld\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor's position to last occurrence of <char> \
|
|
\if motion has a count greater than \
|
|
\the number of occurences of <char>, after the cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "99dfl")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "d\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"moves cursor back by one, when deletion range is \
|
|
\from a newline that follows a non-newline char"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hey hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 3)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dfo")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hey\n"
|
|
val expectedCursorIdx = 2
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "leaves a newline behind if whole buffer is deleted" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hey hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dfo")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 9
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dfn")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete text section preceding match"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello\nworld\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dfl")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 3, finish = 7}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello again world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dfn")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 10}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dfw")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[{start = 4, finish = 4}, {start = 7, finish = 7}]
|
|
val expectedNewSearchList = [{start = 4, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 3
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dft")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dtDelete = describe "delete motion 'dt<char>'"
|
|
[ test
|
|
"does not delete when there is no occurrence of <char> \
|
|
\after cursor position"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dtf")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"does not delete when cursor is at last occurrence of <char> in buffer"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dtw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes up to (excluding) <char> when \
|
|
\there is an ocurrence of <char> after cursor's position on same line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hey hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dty")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "y hello\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes up to (excluding) <char> when the next occurrence of <char> \
|
|
\is after a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dtr")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "rld\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes up to (excluding) last occurrence of chr \
|
|
\when motion has a count greater than 1"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "2dto")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "orld\n"
|
|
val expectedCursorIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test "has same searchList when deleting after all matches" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 9
|
|
val originalString = "hello world again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dtn")
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (#searchList app = #searchList newApp)
|
|
end)
|
|
, test "decrements search list when we delete text section preceding match"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 0
|
|
val originalString = "hello\nworld\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dtl")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = [{start = 4, finish = 8}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test "recognises new match when there is a match after deletion" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello again world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/hello world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dt ")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = []
|
|
val expectedNewSearchList = [{start = 0, finish = 10}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"extends existing match when existing match should extend after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 5
|
|
val originalString = "hello world\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/o+")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dto")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList =
|
|
[{start = 4, finish = 4}, {start = 7, finish = 7}]
|
|
val expectedNewSearchList = [{start = 4, finish = 5}]
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
, test
|
|
"deletes match in search list \
|
|
\when match no longer exists in buffer after deletion"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalIdx = 3
|
|
val originalString = "hello world test again\n"
|
|
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, originalIdx)
|
|
|
|
val app = TestUtils.updateMany (app, "/world")
|
|
val app = AppUpdate.update (app, InputMsg.KEY_ENTER, Time.now ())
|
|
|
|
(* act *)
|
|
val newApp = TestUtils.updateMany (app, "dte")
|
|
|
|
(* assert *)
|
|
val oldSearchList = #searchList app
|
|
val oldSearchList = PersistentVector.toList oldSearchList
|
|
val newSearchList = #searchList newApp
|
|
val newSearchList = PersistentVector.toList newSearchList
|
|
|
|
val expectedOldSearchList = [{start = 6, finish = 10}]
|
|
val expectedNewSearchList = []
|
|
|
|
val assertion =
|
|
oldSearchList = expectedOldSearchList
|
|
andalso newSearchList = expectedNewSearchList
|
|
in
|
|
Expect.isTrue assertion
|
|
end)
|
|
]
|
|
|
|
val dFDelete = describe "delete motion 'dF<char>'"
|
|
[ test
|
|
"does not delete when there is no occurrence of <char> \
|
|
\before cursor position"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dFq")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 10
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"does not delete when cursor is at first occurrence of <char> in buffer"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dFw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor position to previous <char> when \
|
|
\there is an ocurrence of <char> before cursor's position on same line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hey hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 5)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dFy")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "heello\n"
|
|
val expectedCursorIdx = 2
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes up to <char> when the previous occurrence of <char> \
|
|
\is before a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dFl")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "helorld\n"
|
|
val expectedCursorIdx = 3
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor's position to second occurrence of <char> \
|
|
\if motion has a count of 2"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "2dFo")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hellld\n"
|
|
val expectedCursorIdx = 4
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor's position to first occurrence of <char> \
|
|
\if motion has a count greater than \
|
|
\the number of occurences of <char>, before the cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "99dFl")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "heorld\n"
|
|
val expectedCursorIdx = 2
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
]
|
|
|
|
val dTDelete = describe "delete motion 'dT<char>'"
|
|
[ test
|
|
"does not delete when there is no occurrence of <char> \
|
|
\before cursor position"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dTq")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 10
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"does not delete when cursor is at first occurrence of <char> in buffer"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dTw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = originalString
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor position to previous <char> (excluding) when \
|
|
\there is an ocurrence of <char> before cursor's position on same line"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hey hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 5)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dTy")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "heyello\n"
|
|
val expectedCursorIdx = 3
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes up to <char> (excluding) when the previous occurrence of <char> \
|
|
\is before a newline"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "dTl")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hellorld\n"
|
|
val expectedCursorIdx = 4
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor's position to second occurrence of <char> \
|
|
\(excluding) if motion has a count of 2"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "2dTo")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hellold\n"
|
|
val expectedCursorIdx = 5
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor's position to first occurrence of <char> \
|
|
\(excluding) if motion has a count greater than \
|
|
\the number of occurences of <char>, before the cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "99dTl")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "helorld\n"
|
|
val expectedCursorIdx = 3
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString
|
|
andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
]
|
|
|
|
val diwDelete = describe "delete motion 'diw' (delete inside word)"
|
|
[ test
|
|
"deletes middle word when middle word is \
|
|
\an alphanumeric word surrounded on both sides by spaces"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello abc_123 world\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
val app6 = AppWith.idx (app, 11)
|
|
val app7 = AppWith.idx (app, 12)
|
|
|
|
(* act *)
|
|
val app1 = TestUtils.updateMany (app1, "diw")
|
|
val app2 = TestUtils.updateMany (app2, "diw")
|
|
val app3 = TestUtils.updateMany (app3, "diw")
|
|
val app4 = TestUtils.updateMany (app4, "diw")
|
|
val app5 = TestUtils.updateMany (app5, "diw")
|
|
val app6 = TestUtils.updateMany (app6, "diw")
|
|
val app7 = TestUtils.updateMany (app7, "diw")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello world\n"
|
|
val expectedCursorIdx = 6
|
|
|
|
val actualString1 = LineGap.toString (#buffer app1)
|
|
val actualString2 = LineGap.toString (#buffer app2)
|
|
val actualString3 = LineGap.toString (#buffer app3)
|
|
val actualString4 = LineGap.toString (#buffer app4)
|
|
val actualString5 = LineGap.toString (#buffer app5)
|
|
val actualString6 = LineGap.toString (#buffer app6)
|
|
val actualString7 = LineGap.toString (#buffer app7)
|
|
|
|
val stringsAreExpected =
|
|
actualString1 = expectedString
|
|
andalso actualString2 = expectedString
|
|
andalso actualString3 = expectedString
|
|
andalso actualString4 = expectedString
|
|
andalso actualString5 = expectedString
|
|
andalso actualString6 = expectedString
|
|
andalso actualString7 = expectedString
|
|
|
|
val actualCursor1 = #cursorIdx app1
|
|
val actualCursor2 = #cursorIdx app2
|
|
val actualCursor3 = #cursorIdx app3
|
|
val actualCursor4 = #cursorIdx app4
|
|
val actualCursor5 = #cursorIdx app5
|
|
val actualCursor6 = #cursorIdx app6
|
|
val actualCursor7 = #cursorIdx app7
|
|
|
|
val cursorsAreExpected =
|
|
actualCursor1 = expectedCursorIdx
|
|
andalso actualCursor2 = expectedCursorIdx
|
|
andalso actualCursor3 = expectedCursorIdx
|
|
andalso actualCursor4 = expectedCursorIdx
|
|
andalso actualCursor5 = expectedCursorIdx
|
|
andalso actualCursor6 = expectedCursorIdx
|
|
andalso actualCursor7 = expectedCursorIdx
|
|
in
|
|
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
|
end)
|
|
, test
|
|
"deletes middle word if word is a punctuation word \
|
|
\surrounded by spaces"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello !#%&~ world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"does not delete punctuation char to the left \
|
|
\if middle word to be deleted is an alpha word"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello !good world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello ! world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"does not delete alpha char to the left \
|
|
\if middle word to be deleted is a punctuation word"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello a#%!& world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello a world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"does not delete punctuation char to the right \
|
|
\if middle word to be deleted is an alpha word"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello good# world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello # world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"does not delete alpha char to the right \
|
|
\if middle word to be deleted is a punctuation word"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello #%!&z world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello z world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"does not delete punctuation chars to the left and right \
|
|
\if middle word to be deleted is an alpha word"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello (zoo) world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello () world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"does not delete alpha chars to the left and right \
|
|
\if middle word to be deleted is a punctuation word"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello a#%&~z world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello az world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"deletes contiguous spaces when cursor is on space \
|
|
\which is between the middle of two words"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diw")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "helloworld\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
]
|
|
|
|
val diWDelete = describe "delete motion 'diW' (delete inside WORD)"
|
|
[ test
|
|
"deletes middle word when middle word is \
|
|
\an alphanumeric word surrounded on both sides by spaces"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello &bc_12# world\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
val app6 = AppWith.idx (app, 11)
|
|
val app7 = AppWith.idx (app, 12)
|
|
|
|
(* act *)
|
|
val app1 = TestUtils.updateMany (app1, "diW")
|
|
val app2 = TestUtils.updateMany (app2, "diW")
|
|
val app3 = TestUtils.updateMany (app3, "diW")
|
|
val app4 = TestUtils.updateMany (app4, "diW")
|
|
val app5 = TestUtils.updateMany (app5, "diW")
|
|
val app6 = TestUtils.updateMany (app6, "diW")
|
|
val app7 = TestUtils.updateMany (app7, "diW")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello world\n"
|
|
val expectedCursorIdx = 6
|
|
|
|
val actualString1 = LineGap.toString (#buffer app1)
|
|
val actualString2 = LineGap.toString (#buffer app2)
|
|
val actualString3 = LineGap.toString (#buffer app3)
|
|
val actualString4 = LineGap.toString (#buffer app4)
|
|
val actualString5 = LineGap.toString (#buffer app5)
|
|
val actualString6 = LineGap.toString (#buffer app6)
|
|
val actualString7 = LineGap.toString (#buffer app7)
|
|
|
|
val stringsAreExpected =
|
|
actualString1 = expectedString
|
|
andalso actualString2 = expectedString
|
|
andalso actualString3 = expectedString
|
|
andalso actualString4 = expectedString
|
|
andalso actualString5 = expectedString
|
|
andalso actualString6 = expectedString
|
|
andalso actualString7 = expectedString
|
|
|
|
val actualCursor1 = #cursorIdx app1
|
|
val actualCursor2 = #cursorIdx app2
|
|
val actualCursor3 = #cursorIdx app3
|
|
val actualCursor4 = #cursorIdx app4
|
|
val actualCursor5 = #cursorIdx app5
|
|
val actualCursor6 = #cursorIdx app6
|
|
val actualCursor7 = #cursorIdx app7
|
|
|
|
val cursorsAreExpected =
|
|
actualCursor1 = expectedCursorIdx
|
|
andalso actualCursor2 = expectedCursorIdx
|
|
andalso actualCursor3 = expectedCursorIdx
|
|
andalso actualCursor4 = expectedCursorIdx
|
|
andalso actualCursor5 = expectedCursorIdx
|
|
andalso actualCursor6 = expectedCursorIdx
|
|
andalso actualCursor7 = expectedCursorIdx
|
|
in
|
|
Expect.isTrue (stringsAreExpected andalso cursorsAreExpected)
|
|
end)
|
|
, test
|
|
"deletes middle word if word is a punctuation word \
|
|
\surrounded by spaces"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello !#%&~ world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diW")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"deletes middle WORD when on alpha character, \
|
|
\including punctuation char on the left"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello !good world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diW")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"deletes middle WORD when on punctuation character, \
|
|
\including alpha char on the left"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello a#%!& world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diW")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"deletes middle WORD when on alpha char, \
|
|
\including punctuation to the right"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello good# world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diW")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"deletes middle WORD when on punctuation char, \
|
|
\including alpha char to the right"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello #%!&z world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diW")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"deletes middle WORD, including surrounding punctuation \
|
|
\when cursor is on alpha char"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello (zoo) world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diW")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"deletes middle WORD, including surrounding alpha chars \
|
|
\when cursor is on punctuation char"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello a#%&~z world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diW")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "hello world\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
, test
|
|
"deletes contiguous spaces when cursor is on space \
|
|
\which is between the middle of two words"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "diW")
|
|
|
|
(* assert *)
|
|
val actualString = LineGap.toString buffer
|
|
val expectedString = "helloworld\n"
|
|
in
|
|
Expect.isTrue (actualString = expectedString)
|
|
end)
|
|
]
|
|
|
|
val dawDelete = describe "delete motion 'daw' (delete around word)"
|
|
[ test "deletes a single newline when cursor is on a newline" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "daw")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello\nworld\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes middle word and spaces after middle word \
|
|
\when there are three words on line and cursor is on middle word"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello world again\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val app1 = TestUtils.updateMany (app1, "daw")
|
|
val app2 = TestUtils.updateMany (app2, "daw")
|
|
val app3 = TestUtils.updateMany (app3, "daw")
|
|
val app4 = TestUtils.updateMany (app4, "daw")
|
|
val app5 = TestUtils.updateMany (app5, "daw")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello again\n"
|
|
|
|
val actualString1 = LineGap.toString (#buffer app1)
|
|
val actualString2 = LineGap.toString (#buffer app2)
|
|
val actualString3 = LineGap.toString (#buffer app3)
|
|
val actualString4 = LineGap.toString (#buffer app4)
|
|
val actualString5 = LineGap.toString (#buffer app5)
|
|
|
|
val stringsAreExpected =
|
|
expectedString = actualString1
|
|
andalso expectedString = actualString2
|
|
andalso expectedString = actualString3
|
|
andalso expectedString = actualString4
|
|
andalso expectedString = actualString5
|
|
|
|
val expectedCursorIdx = 6
|
|
|
|
val actualCursor1 = #cursorIdx app1
|
|
val actualCursor2 = #cursorIdx app2
|
|
val actualCursor3 = #cursorIdx app3
|
|
val actualCursor4 = #cursorIdx app4
|
|
val actualCursor5 = #cursorIdx app5
|
|
|
|
val cursorsAreExpected =
|
|
expectedCursorIdx = actualCursor1
|
|
andalso expectedCursorIdx = actualCursor2
|
|
andalso expectedCursorIdx = actualCursor3
|
|
andalso expectedCursorIdx = actualCursor4
|
|
andalso expectedCursorIdx = actualCursor5
|
|
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 word 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)
|
|
, test
|
|
"deletes alpha word when cursor is on alpha char \
|
|
\and alpha word is surrounded by punctuation chars"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "#hello#\n"
|
|
val app = AppWith.idx (app, 3)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "daw")
|
|
|
|
(* assert *)
|
|
val expectedIdx = 1
|
|
val expectedString = "##\n"
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test
|
|
"deletes punctuation word when cursor is on punctuation char \
|
|
\and punctuation word is surrounded by alpha chars"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "h#%&(e\n"
|
|
val app = AppWith.idx (app, 3)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "daw")
|
|
|
|
(* assert *)
|
|
val expectedIdx = 1
|
|
val expectedString = "he\n"
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
]
|
|
|
|
val daWDelete = describe "delete motion 'daW' (delete around word)"
|
|
[ test "deletes a single newline when cursor is on a newline" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello\n\nworld\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "daW")
|
|
|
|
(* assert *)
|
|
val expectedString = "hello\nworld\n"
|
|
val actualString = LineGap.toString buffer
|
|
|
|
val expectedCursorIdx = 6
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedCursorIdx)
|
|
end)
|
|
, test
|
|
"deletes middle WORD and spaces after middle WORD \
|
|
\when there are three WORDS on line and cursor is on middle WORD"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "he!!o wor!d aga!n\n"
|
|
val app = TestUtils.init originalString
|
|
|
|
val app1 = AppWith.idx (app, 6)
|
|
val app2 = AppWith.idx (app, 7)
|
|
val app3 = AppWith.idx (app, 8)
|
|
val app4 = AppWith.idx (app, 9)
|
|
val app5 = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val app1 = TestUtils.updateMany (app1, "daW")
|
|
val app2 = TestUtils.updateMany (app2, "daW")
|
|
val app3 = TestUtils.updateMany (app3, "daW")
|
|
val app4 = TestUtils.updateMany (app4, "daW")
|
|
val app5 = TestUtils.updateMany (app5, "daW")
|
|
|
|
(* assert *)
|
|
val expectedString = "he!!o aga!n\n"
|
|
|
|
val actualString1 = LineGap.toString (#buffer app1)
|
|
val actualString2 = LineGap.toString (#buffer app2)
|
|
val actualString3 = LineGap.toString (#buffer app3)
|
|
val actualString4 = LineGap.toString (#buffer app4)
|
|
val actualString5 = LineGap.toString (#buffer app5)
|
|
|
|
val stringsAreExpected =
|
|
expectedString = actualString1
|
|
andalso expectedString = actualString2
|
|
andalso expectedString = actualString3
|
|
andalso expectedString = actualString4
|
|
andalso expectedString = actualString5
|
|
|
|
val expectedCursorIdx = 6
|
|
|
|
val actualCursor1 = #cursorIdx app1
|
|
val actualCursor2 = #cursorIdx app2
|
|
val actualCursor3 = #cursorIdx app3
|
|
val actualCursor4 = #cursorIdx app4
|
|
val actualCursor5 = #cursorIdx app5
|
|
|
|
val cursorsAreExpected =
|
|
expectedCursorIdx = actualCursor1
|
|
andalso expectedCursorIdx = actualCursor2
|
|
andalso expectedCursorIdx = actualCursor3
|
|
andalso expectedCursorIdx = actualCursor4
|
|
andalso expectedCursorIdx = actualCursor5
|
|
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 a&a!n 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 WORD on line when cursor is on space \
|
|
\which immediately precedes last WORD"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "hello again w()r!d\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)
|
|
, test
|
|
"deletes WORD, including surrounding punctuation, \
|
|
\when cursor is on alpha char"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "hello a^a!n world\n"
|
|
val app = AppWith.idx (app, 8)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "daW")
|
|
|
|
(* assert *)
|
|
val expectedIdx = 6
|
|
val expectedString = "hello world\n"
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
, test
|
|
"deletes WORD, including surrounding alpha chars, \
|
|
\when cursor is on punctuation char"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "hello a!#%&(z world\n"
|
|
val app = AppWith.idx (app, 8)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "daW")
|
|
|
|
(* assert *)
|
|
val expectedIdx = 6
|
|
val expectedString = "hello world\n"
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(expectedString = actualString andalso expectedIdx = cursorIdx)
|
|
end)
|
|
]
|
|
|
|
val pairDelete = describe "delete motion 'd%' (delete pair)"
|
|
[ test
|
|
"deletes from cursor to matching ) \
|
|
\when cursor is on ("
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "(hello)\n"
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
val expectedIdx = 0
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor to matching ( \
|
|
\when cursor is on )"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "(hello)\n"
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val expectedIdx = 0
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
(* testing that cursor deletes at correct level of nesting *)
|
|
, test "deletes to outermouse ) when cursor is on outermost (" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "(((hello)))\n"
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val expectedIdx = 0
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test "deletes to outermost ( when cursor is on outermost )" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "(((hello)))\n"
|
|
val app = AppWith.idx (app, 10)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val expectedIdx = 0
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test "deletes to middle ) when cursor is on middle (" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "(((hello)))\n"
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "()\n"
|
|
val expectedIdx = 1
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test "deletes to middle ( when cursor is on middle )" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "(((hello)))\n"
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "()\n"
|
|
val expectedIdx = 1
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test "deletes to innermost ) when cursor is on innermost (" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "(((hello)))\n"
|
|
val app = AppWith.idx (app, 2)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "(())\n"
|
|
val expectedIdx = 2
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test "deletes to innermost ( when cursor is on innermost )" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "(((hello)))\n"
|
|
val app = AppWith.idx (app, 8)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "(())\n"
|
|
val expectedIdx = 2
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
(* testing different pair combinations *)
|
|
, test "deletes to next ] when cursor is on [" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "[hello]\n"
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val expectedIdx = 0
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test "deletes to preceding [ when cursur is on ]" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "[hello]\n"
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val expectedIdx = 0
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test "deletes to next } when cursor is on {" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "{hello}\n"
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val expectedIdx = 0
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test "deletes to preceding { when cursur is on }" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "{hello}\n"
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val expectedIdx = 0
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test "deletes to next > when cursor is on <" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "<hello>\n"
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val expectedIdx = 0
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test "deletes to preceding < when cursur is on >" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "<hello>\n"
|
|
val app = AppWith.idx (app, 6)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val expectedIdx = 0
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
, test
|
|
"does not delete when cursor is on a non-pair-character, \
|
|
\and there is no pair-character where the cursor is at or after the cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "he()o, world\n"
|
|
val app = AppWith.idx (app, 5)
|
|
val oldBuffer = #buffer app
|
|
val oldIdx = #cursorIdx app
|
|
|
|
(* act *)
|
|
val app = TestUtils.updateMany (app, "d%")
|
|
val newBuffer = #buffer app
|
|
val newIdx = #cursorIdx app
|
|
|
|
(* assert *)
|
|
val oldString = LineGap.toString oldBuffer
|
|
val newString = LineGap.toString newBuffer
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue (newString = oldString andalso newIdx = oldIdx)
|
|
end)
|
|
, test
|
|
"deletes from cursor to matching pair \
|
|
\when cursor is not on a pair-character \
|
|
\but there is a pair-character after it"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val app = TestUtils.init "he()o world\n"
|
|
val app = AppWith.idx (app, 0)
|
|
|
|
(* act *)
|
|
val {buffer, cursorIdx, ...} = TestUtils.updateMany (app, "d%")
|
|
|
|
(* assert *)
|
|
val expectedString = "o world\n"
|
|
val expectedIdx = 0
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
(* assert *)
|
|
Expect.isTrue
|
|
(actualString = expectedString andalso cursorIdx = expectedIdx)
|
|
end)
|
|
]
|
|
|
|
val diParenDelete = describe "delete motion 'di('"
|
|
[ test "does not delete when there is no ( after the cursor" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = " ( ) hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, ...} = TestUtils.updateMany (app, "di(")
|
|
|
|
(* assert *)
|
|
val expectedString = originalString
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
, test
|
|
"deletes pair after cursor when there is a pair \
|
|
\before the cursor and after the cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = " ( abc ) xyz ( def )\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, ...} = TestUtils.updateMany (app, "di(")
|
|
|
|
(* assert *)
|
|
val expectedString = " ( abc ) xyz ()\n"
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
, test
|
|
"deletes inside outer parens when cursor is in \
|
|
\outer paren, and there is an inner paren after cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "( ( hello ) )\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, ...} = TestUtils.updateMany (app, "di(")
|
|
|
|
(* assert *)
|
|
val expectedString = "()\n"
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
, test
|
|
"deletes inside inner parren when cursor is in inner paren-pair, \
|
|
\and there is an outer paren above this inner paren"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "( ( hello ) )\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 5)
|
|
|
|
(* act *)
|
|
val {buffer, ...} = TestUtils.updateMany (app, "di(")
|
|
|
|
(* assert *)
|
|
val expectedString = "( () )\n"
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
]
|
|
|
|
val daParenDelete = describe "delete motion 'da('"
|
|
[ test "does not delete when there is no ( after the cursor" (fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = " ( ) hello\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 7)
|
|
|
|
(* act *)
|
|
val {buffer, ...} = TestUtils.updateMany (app, "da(")
|
|
|
|
(* assert *)
|
|
val expectedString = originalString
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
, test
|
|
"deletes pair after cursor when there is a pair \
|
|
\before the cursor and after the cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = " ( abc ) xyz ( def )\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 9)
|
|
|
|
(* act *)
|
|
val {buffer, ...} = TestUtils.updateMany (app, "da(")
|
|
|
|
(* assert *)
|
|
val expectedString = " ( abc ) xyz \n"
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
, test
|
|
"deletes outer parens when cursor is in \
|
|
\outer paren, and there is an inner paren after cursor"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "( ( hello ) )\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 1)
|
|
|
|
(* act *)
|
|
val {buffer, ...} = TestUtils.updateMany (app, "da(")
|
|
|
|
(* assert *)
|
|
val expectedString = "\n"
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
, test
|
|
"deletes inner parren when cursor is in inner paren-pair, \
|
|
\and there is an outer paren above this inner paren"
|
|
(fn _ =>
|
|
let
|
|
(* arrange *)
|
|
val originalString = "( ( hello ) )\n"
|
|
val app = TestUtils.init originalString
|
|
val app = AppWith.idx (app, 5)
|
|
|
|
(* act *)
|
|
val {buffer, ...} = TestUtils.updateMany (app, "da(")
|
|
|
|
(* assert *)
|
|
val expectedString = "( )\n"
|
|
val actualString = LineGap.toString buffer
|
|
in
|
|
Expect.isTrue (expectedString = actualString)
|
|
end)
|
|
]
|
|
|
|
val tests =
|
|
[ dhDelete
|
|
, dlDelete
|
|
, djDelete
|
|
, ddDelete
|
|
, dkDelete
|
|
, dwDelete
|
|
, dWDelete
|
|
, deDelete
|
|
, dEdelete
|
|
, dbDelete
|
|
, dBDelete
|
|
, dgeDelete
|
|
, dgEDelete
|
|
, dGDelete
|
|
, dggDelete
|
|
, d0Delete
|
|
, dDlrDelete
|
|
, dCaretDelete
|
|
, dnDelete
|
|
, dNDelete
|
|
, dfDelete
|
|
, dtDelete
|
|
, dFDelete
|
|
, dTDelete
|
|
, diwDelete
|
|
, diWDelete
|
|
, dawDelete
|
|
, daWDelete
|
|
, pairDelete
|
|
, diParenDelete
|
|
, daParenDelete
|
|
]
|
|
end
|