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.
55 lines
1.2 KiB
Text
55 lines
1.2 KiB
Text
/-!
|
|
|
|
# Provide case alternatives in "nonexistent tag" message
|
|
|
|
Test that the available case tags are suggested when a nonexistent
|
|
tag is requested. -/
|
|
|
|
/-!
|
|
This example tests what happens when no cases are available. -/
|
|
def noCases : Nat := by
|
|
case nonexistent =>
|
|
skip
|
|
|
|
/-!
|
|
This example tests what happens when just one case is available, but
|
|
it wasn't picked. -/
|
|
|
|
def oneCase : Nat := by
|
|
cases ()
|
|
case nonexistent =>
|
|
skip
|
|
|
|
/-!
|
|
Check varying numbers of cases to make sure the pretty-print setup for
|
|
the list is correct. -/
|
|
|
|
def twoCases : Nat := by
|
|
cases true
|
|
case nonexistent =>
|
|
skip
|
|
|
|
def fourCases : Nat := by
|
|
cases true <;> cases true
|
|
case nonexistent =>
|
|
skip
|
|
|
|
def eightCases : Nat := by
|
|
cases true <;> cases true <;> cases true
|
|
case nonexistent =>
|
|
skip
|
|
|
|
def sixteenCases : Nat := by
|
|
cases true <;> cases true <;> cases true <;> cases true
|
|
case nonexistent =>
|
|
skip
|
|
|
|
/-!
|
|
This example tests that the code-action hint doesn't appear when the identifier syntax is
|
|
synthetic.
|
|
-/
|
|
macro "faulty_case_selector " " => " ts:tacticSeq : tactic => `(tactic| case nonexistent => $ts)
|
|
def inapplicableSyntax : Nat := by
|
|
cases true
|
|
faulty_case_selector =>
|
|
skip
|