2025-08-20 13:50:57 +01:00
|
|
|
structure TestUtils =
|
|
|
|
|
struct
|
2025-09-20 03:44:48 +01:00
|
|
|
fun withUnixLineEndings str =
|
|
|
|
|
if String.size str > 0 andalso String.sub (str, String.size str - 1) = #"\n" then
|
|
|
|
|
str
|
|
|
|
|
else
|
|
|
|
|
str ^ "\n"
|
|
|
|
|
|
|
|
|
|
fun init bufferString =
|
|
|
|
|
let
|
|
|
|
|
val bufferString = withUnixLineEndings bufferString
|
|
|
|
|
val buffer = LineGap.fromString bufferString
|
|
|
|
|
in
|
|
|
|
|
AppType.init (buffer, 0, 0, Time.now ())
|
|
|
|
|
end
|
2025-08-20 13:50:57 +01:00
|
|
|
|
|
|
|
|
fun update (app, cmd) =
|
|
|
|
|
AppUpdate.update (app, cmd, Time.now ())
|
|
|
|
|
end
|
