dfd3d18530
This PR significantly improves the test coverage of the language server, providing at least a single basic test for every request that is used by the client. It also implements infrastructure for testing all of these requests, e.g. the ability to run interactive tests in a project context and refactors the interactive test runner to be more maintainable. Finally, it also fixes a small bug with the recently implemented unknown identifier code actions for auto-implicits (#10442) that was discovered in testing, where the "import all unambiguous unknown identifiers" code action didn't work correctly on auto-implicit identifiers.
31 lines
1 KiB
Text
31 lines
1 KiB
Text
import Lean.Data.Lsp
|
|
open IO Lean Lsp
|
|
|
|
def main : IO Unit := do
|
|
Ipc.runWith "lean" #["--server"] do
|
|
let hIn ← Ipc.stdin
|
|
hIn.write (←FS.readBinFile "init_vscode_1_47_2.log")
|
|
hIn.flush
|
|
discard $ Ipc.readResponseAs 0 InitializeResult
|
|
Ipc.writeNotification ⟨"initialized", InitializedParams.mk⟩
|
|
|
|
hIn.write (←FS.readBinFile "open_content.log")
|
|
hIn.flush
|
|
discard <| Ipc.collectDiagnostics 1 "file:///test.lean" 1
|
|
|
|
hIn.write (←FS.readBinFile "content_changes.log")
|
|
hIn.flush
|
|
|
|
let some diag ← Ipc.collectDiagnostics 2 "file:///test.lean" 7
|
|
| throw $ userError "Test failed, no diagnostics received."
|
|
FS.writeFile "edits_diag.json.produced" (toString <| toJson (diag : JsonRpc.Message))
|
|
|
|
if let Except.ok (refDiag : JsonRpc.Notification PublishDiagnosticsParams) :=
|
|
(Json.parse $ ←FS.readFile "edits_diag.json") >>= fromJson?
|
|
then
|
|
assert! (diag == refDiag)
|
|
else
|
|
throw $ userError "Failed parsing test file."
|
|
|
|
Ipc.shutdown 3
|
|
discard $ Ipc.waitForExit
|