lean4-htt/tests/lean/server/init_exit_worker.lean
2021-05-26 09:30:29 +02:00

17 lines
No EOL
443 B
Text

import Lean.Data.Lsp
open IO Lean Lsp
#eval (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
: IO Unit)