20 lines
465 B
Standard ML
20 lines
465 B
Standard ML
structure TestUtils =
|
|
struct
|
|
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
|
|
|
|
fun update (app, cmd) =
|
|
AppUpdate.update (app, cmd, Time.now ())
|
|
end
|