3a457e6ad6
Many of our tests in `tests/lean/run/` produce output from `#eval` (or `#check`) statements, that is then ignored. This PR tries to capture all the useful output using `#guard_msgs`. I've only done a cursory check that the output is still sane --- there is a chance that some "unchecked" tests have already accumulated regressions and this just cements them! In the other direction, I did identify two rotten tests: * a minor one in `setStructInstNotation.lean`, where a comment says `Set Nat`, but `#check` actually prints `?_`. Weird? * `CompilerProbe.lean` is generating empty output, apparently indicating that something is broken, but I don't know the signficance of this file. In any case, I'll ask about these elsewhere. (This started by noticing that a recent `grind` test file had an untested `trace_state`, and then got carried away.)
36 lines
1.3 KiB
Text
36 lines
1.3 KiB
Text
import Lean.Expr
|
|
open Lean
|
|
|
|
def main : IO Unit :=
|
|
do let f := mkConst `f [];
|
|
let x := mkConst `x [];
|
|
let y := mkConst `y [];
|
|
let t1 := mkApp f x;
|
|
let t2 := t1.updateApp! f y;
|
|
let t3 := t1.updateApp! f x;
|
|
let t4 := mkProj `Prod 1 x;
|
|
let t5 := t4.updateProj! y;
|
|
let t6 := t4.updateProj! x;
|
|
let x₁ := x.updateConst! [levelOne];
|
|
let x₂ := x.updateConst! [];
|
|
let s := mkSort levelOne;
|
|
let s₁ := s.updateSort! levelOne;
|
|
let s₂ := s.updateSort! levelZero;
|
|
let a := mkForall `x BinderInfo.default s s;
|
|
let a₁ := a.updateForall! BinderInfo.default s s;
|
|
let a₂ := a.updateForall! BinderInfo.default s₂ s;
|
|
let nat := mkConst `Nat [];
|
|
let id := mkLambda `x BinderInfo.default nat (mkBVar 0);
|
|
let id₁ := id.updateLambda! BinderInfo.default s (mkBVar 0);
|
|
let id₂ := id.updateLambda! BinderInfo.default nat (mkBVar 0);
|
|
let l := mkLet `z nat x t1;
|
|
let l₁ := l.updateLet! nat x t2;
|
|
let l₂ := l.updateLet! nat x t1;
|
|
IO.println [t1, t2, t3, t5, t6, x₁, x₂, s₁, s₂, a₁, a₂, id₁, id₂, l₁, l₂];
|
|
pure ()
|
|
|
|
/--
|
|
info: [f x, f y, f x, y.2, x.2, x.{1}, x, Type, Prop, Type -> Type, Prop -> Type, fun (x : Type) => x, fun (x : Nat) => x, let z : Nat := x; f y, let z : Nat := x; f x]
|
|
-/
|
|
#guard_msgs in
|
|
#eval main
|