lean4-htt/tests/lean/server/init_exit_worker.lean
Sebastian Ullrich 5b653197db chore: use --run for servertests
/cc @Garmelon
2021-12-21 16:04:21 +01:00

16 lines
446 B
Text

import Lean.Data.Lsp
open IO Lean Lsp
def main : IO Unit := do
Ipc.runWith (←IO.appPath) #["--worker"] do
let hIn ← Ipc.stdin
hIn.write (←FS.readBinFile "init_vscode_1_47_2.log")
hIn.flush
hIn.write (←FS.readBinFile "open_empty.log")
hIn.flush
let diags ← Ipc.collectDiagnostics 1 "file:///empty" 1
assert! diags.length >= 1
Ipc.writeNotification ⟨"exit", Json.null⟩
discard Ipc.waitForExit