08eb78a5b2
This PR sets up the new integrated test/bench suite. It then migrates all benchmarks and some related tests to the new suite. There's also some documentation and some linting. For now, a lot of the old tests are left alone so this PR doesn't become even larger than it already is. Eventually, all tests should be migrated to the new suite though so there isn't a confusing mix of two systems.
69 lines
1.4 KiB
Text
69 lines
1.4 KiB
Text
import Lean.Meta
|
|
|
|
/-!
|
|
# Preview spans for hints in messages
|
|
|
|
Tests rendering of hint suggestion preview spans in message data.
|
|
-/
|
|
|
|
open Lean Meta Hint
|
|
|
|
/-! ## Valid span appears -/
|
|
|
|
elab "suggest_id_insertion" _id:ident t:term : term <= tp => do
|
|
let p := t.raw.getPos?.get!
|
|
let hint ← MessageData.hint "Insert `id`" #[{
|
|
suggestion := "id "
|
|
span? := Syntax.ofRange ⟨p, p⟩
|
|
previewSpan? := t
|
|
}]
|
|
logInfo <| m!"Message" ++ hint
|
|
Lean.Elab.Term.elabTerm t tp
|
|
|
|
/--
|
|
info: Message
|
|
|
|
Hint: Insert `id`
|
|
i̲d̲ ̲true
|
|
-/
|
|
#guard_msgs in
|
|
example := suggest_id_insertion Foo true
|
|
|
|
elab "one" "two" tk:"three" "four" "five" : term => do
|
|
let hint ← MessageData.hint "Insert `id`" #[{
|
|
suggestion := "ee"
|
|
span? := tk
|
|
previewSpan? := (← getRef)
|
|
}]
|
|
logInfo m!"Message{hint}"
|
|
return .const ``Unit.unit []
|
|
|
|
/--
|
|
info: Message
|
|
|
|
Hint: Insert `id`
|
|
one two t̵h̵r̵ee four five
|
|
-/
|
|
#guard_msgs in
|
|
example := one two three four five
|
|
|
|
/-! ## Fallback appears in case of erroneous span -/
|
|
|
|
elab "bad_suggest_id_insertion" id:ident t:term : term <= tp => do
|
|
let p := t.raw.getPos?.get!
|
|
let hint ← MessageData.hint "Insert `id`" #[{
|
|
suggestion := "id "
|
|
span? := Syntax.ofRange ⟨p, p⟩
|
|
previewSpan? := id -- does not include edit range
|
|
}]
|
|
logInfo <| m!"Message" ++ hint
|
|
Lean.Elab.Term.elabTerm t tp
|
|
|
|
/--
|
|
info: Message
|
|
|
|
Hint: Insert `id`
|
|
i̲d̲ ̲
|
|
-/
|
|
#guard_msgs in
|
|
example := bad_suggest_id_insertion Foo true
|