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.
36 lines
1.4 KiB
Text
36 lines
1.4 KiB
Text
import Lean
|
|
|
|
open Lean
|
|
|
|
#eval toString $
|
|
Unhygienic.run do
|
|
let a ← `(Nat.one);
|
|
let rhs_0 : _ := fun (a : Lean.Syntax) (b : Lean.Syntax) => pure Syntax.missing;
|
|
let rhs_1 : _ := fun (_a : _) => pure Lean.Syntax.missing;
|
|
let discr_2 : _ := a;
|
|
ite (Lean.Syntax.isOfKind discr_2 (Lean.Name.mkStr (Lean.Name.mkStr (Lean.Name.mkStr (Lean.Name.mkStr Lean.Name.anonymous "Lean") "Parser") "Term") "add"))
|
|
(let discr_3 : _ := Lean.Syntax.getArg discr_2 0;
|
|
let discr_4 : _ := Lean.Syntax.getArg discr_2 1;
|
|
let discr_5 : _ := Lean.Syntax.getArg discr_2 2;
|
|
rhs_0 discr_3 discr_5)
|
|
(let discr_7 : _ := a;
|
|
rhs_1 Unit.unit)
|
|
|
|
|
|
#check (pure 0 : Id Nat)
|
|
|
|
#check (let rhs := fun a => pure a; rhs 0 : Id Nat)
|
|
|
|
#check toString $
|
|
Unhygienic.run do
|
|
let a ← `(Nat.one);
|
|
let rhs_0 : _ := fun (a : Lean.Syntax) (b : Lean.Syntax) => pure Syntax.missing;
|
|
let rhs_1 : _ := fun (_a : _) => pure Lean.Syntax.missing;
|
|
let discr_2 : _ := a;
|
|
ite (Lean.Syntax.isOfKind discr_2 (Lean.Name.mkStr (Lean.Name.mkStr (Lean.Name.mkStr (Lean.Name.mkStr Lean.Name.anonymous "Lean") "Parser") "Term") "add"))
|
|
(let discr_3 : _ := Lean.Syntax.getArg discr_2 0;
|
|
let discr_4 : _ := Lean.Syntax.getArg discr_2 1;
|
|
let discr_5 : _ := Lean.Syntax.getArg discr_2 2;
|
|
rhs_0 discr_3 discr_5)
|
|
(let discr_7 : _ := a;
|
|
rhs_1 Unit.unit)
|