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.)
67 lines
1.5 KiB
Text
67 lines
1.5 KiB
Text
import Lean
|
|
|
|
|
|
partial def foo (n : Nat) : Nat := Id.run do
|
|
if n == 10 then return 0
|
|
foo (n+1)
|
|
|
|
partial def bar (n : Nat) : Nat := Id.run do
|
|
if n == 10 then 0 else
|
|
bar (n+1)
|
|
|
|
#print foo._unsafe_rec
|
|
|
|
run_meta Lean.Compiler.compile #[``foo]
|
|
|
|
def xyz : BaseIO UInt32 := do
|
|
let ref ← IO.mkRef 42
|
|
ref.set 10
|
|
ref.get
|
|
|
|
-- set_option trace.Compiler.simp true in
|
|
run_meta Lean.Compiler.compile #[``xyz]
|
|
|
|
@[extern "f_imp"]
|
|
opaque f : Nat → Nat
|
|
|
|
@[extern "g_imp"]
|
|
opaque g : Nat → Nat → Nat → Nat
|
|
|
|
inductive Ty where
|
|
| c1 | c2 | c3 | c4 | c5
|
|
|
|
def bla (ty : Ty) :=
|
|
match ty with
|
|
| .c1 => true
|
|
| _ => true
|
|
|
|
run_meta Lean.Compiler.compile #[``bla]
|
|
|
|
def boo (ty ty' : Ty) (a b : Nat) :=
|
|
let d := match ty with
|
|
| .c1 => f b + f a + f (a+1) + f (a*2) + f (a*3)
|
|
| _ => f (b+1) + f b + f a
|
|
let e := match ty' with
|
|
| .c2 => f a * f (b+1) + f (a*2) + f (a*3)
|
|
| _ => f b * f (b + 1) + f (a*2) + f (a*3)
|
|
g e d e + g d d d
|
|
|
|
-- set_option trace.Compiler.simp.step true in
|
|
-- set_option trace.Compiler.simp.inline true in
|
|
-- set_option trace.Compiler.simp.inline.stats true in
|
|
-- set_option trace.Compiler.simp true in
|
|
run_meta Lean.Compiler.compile #[``boo]
|
|
|
|
def f' (x y : Nat) :=
|
|
let s := (x, y)
|
|
let y := s.2
|
|
y + s.2
|
|
|
|
-- set_option trace.Compiler.simp true in
|
|
run_meta Lean.Compiler.compile #[``f']
|
|
|
|
run_meta Lean.Compiler.compile #[``Lean.Meta.isExprDefEqAuxImpl]
|
|
|
|
set_option trace.Meta.debug true
|
|
set_option trace.Compiler true
|
|
run_meta Lean.Compiler.compile #[``Lean.MetavarContext.MkBinding.collectForwardDeps]
|