55 lines
1.3 KiB
Standard ML
55 lines
1.3 KiB
Standard ML
structure Regression =
|
|
struct
|
|
open Railroad
|
|
open Railroad.Test
|
|
|
|
fun updateLoop (pos, str, app) =
|
|
if pos = String.size str then
|
|
app
|
|
else
|
|
let
|
|
val chr = String.sub (str, pos)
|
|
val app = AppUpdate.update (app, InputMsg.CHAR_EVENT chr)
|
|
handle _ => raise Fail (Int.toString pos)
|
|
in
|
|
updateLoop (pos + 1, str, app)
|
|
end
|
|
|
|
fun applyChars (historyString, app) = updateLoop (0, historyString, app)
|
|
|
|
fun appFromText text =
|
|
let val buffer = LineGap.fromString text
|
|
in AppType.init (buffer, 0, 0)
|
|
end
|
|
|
|
fun loadFromFile (io, acc) =
|
|
case TextIO.inputLine io of
|
|
SOME line => loadFromFile (io, acc ^ line)
|
|
| NONE => acc
|
|
|
|
val initialText =
|
|
let
|
|
val io = TextIO.openIn "temp.txt"
|
|
val str = loadFromFile (io, "")
|
|
val () = TextIO.closeIn io
|
|
in
|
|
str
|
|
end
|
|
|
|
val initialApp = appFromText initialText
|
|
|
|
val charEventTests = describe "CHAR_EVENT regressions"
|
|
[test "SearchList.goToNum vector bounds regression (1)" (fn _ =>
|
|
let
|
|
val app = appFromText initialText
|
|
val history = "G12dk"
|
|
val history = "100G55dkz33dk"
|
|
val newApp = applyChars (history, app)
|
|
in
|
|
(* just expect that we do not fail or throw an exception *)
|
|
Expect.isTrue true
|
|
end)]
|
|
|
|
val tests = [charEventTests]
|
|
end
|