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.)
118 lines
2.5 KiB
Text
118 lines
2.5 KiB
Text
def checkM (b : IO Bool) : IO Unit :=
|
||
unless (← b) do throw $ IO.userError "failed"
|
||
|
||
abbrev M := ExceptT String $ StateRefT Nat IO
|
||
|
||
def f1 : M Nat :=
|
||
throw "error 1"
|
||
|
||
def f2 : M Nat :=
|
||
throwThe IO.Error $ IO.userError "error 2"
|
||
|
||
def tst1 : M Nat := do
|
||
try
|
||
try f1 finally set 100; IO.println "finisher executed"
|
||
catch _ =>
|
||
get
|
||
|
||
def checkE {α ε : Type} [BEq α] (x : IO (Except ε α)) (expected : α) : IO Unit := do
|
||
let r ← x;
|
||
match r with
|
||
| Except.ok a => unless a == expected do throw $ IO.userError "unexpected result"
|
||
| Except.error _ => throw $ IO.userError "unexpected error"
|
||
|
||
/--
|
||
info: finisher executed
|
||
Except.ok 100
|
||
-/
|
||
#guard_msgs in
|
||
#eval (tst1.run).run' 0
|
||
|
||
/-- info: finisher executed -/
|
||
#guard_msgs in
|
||
#eval checkE ((tst1.run).run' 0) 100
|
||
|
||
def tst2 : M Nat :=
|
||
tryCatchThe IO.Error
|
||
(tryFinally f2 (do set 100; IO.println "finisher executed"))
|
||
(fun _ => get)
|
||
|
||
/--
|
||
info: finisher executed
|
||
Except.ok 100
|
||
-/
|
||
#guard_msgs in
|
||
#eval (tst2.run).run' 0
|
||
|
||
/-- info: finisher executed -/
|
||
#guard_msgs in
|
||
#eval checkE ((tst2.run).run' 0) 100
|
||
|
||
def tst3 : M Nat :=
|
||
tryCatchThe IO.Error
|
||
(tryFinally
|
||
(tryFinally f1 (do set 100; IO.println "inner finisher executed"; discard $ f2; pure ()))
|
||
(do modify Nat.succ; IO.println "outer finisher executed"))
|
||
(fun _ => get)
|
||
|
||
/--
|
||
info: inner finisher executed
|
||
outer finisher executed
|
||
Except.ok 101
|
||
-/
|
||
#guard_msgs in
|
||
#eval (tst3.run).run' 0
|
||
|
||
/--
|
||
info: inner finisher executed
|
||
outer finisher executed
|
||
-/
|
||
#guard_msgs in
|
||
#eval checkE ((tst3.run).run' 0) 101
|
||
|
||
def tst4 : M Nat := do
|
||
let a ← tryFinally
|
||
(tryFinally (pure 42) (do set 100; IO.println "inner finisher executed"; pure ()))
|
||
(do modify Nat.succ; IO.println "outer finisher executed");
|
||
let s ← get;
|
||
pure (a + s)
|
||
|
||
/--
|
||
info: inner finisher executed
|
||
outer finisher executed
|
||
Except.ok 143
|
||
-/
|
||
#guard_msgs in
|
||
#eval (tst4.run).run' 0
|
||
|
||
/--
|
||
info: inner finisher executed
|
||
outer finisher executed
|
||
-/
|
||
#guard_msgs in
|
||
#eval checkE ((tst4.run).run' 0) 143
|
||
|
||
def tst5 : M Nat := do
|
||
let (a, _) ← tryFinally' (pure 42) (fun a? => do IO.println ("finalizer received: " ++ toString a?));
|
||
pure a
|
||
|
||
/--
|
||
info: finalizer received: (some 42)
|
||
Except.ok 42
|
||
-/
|
||
#guard_msgs in
|
||
#eval (tst5.run).run' 0
|
||
|
||
def tst6 : M Nat := do
|
||
let (a, _) ← tryFinally' f2 (fun a? => do IO.println ("finalizer received: " ++ toString a?));
|
||
pure a
|
||
|
||
def tst7 : IO Unit :=
|
||
tryCatchThe IO.Error (do discard $ (tst6.run).run' 0; pure ()) (fun _ => IO.println "failed as expected")
|
||
|
||
/--
|
||
info: finalizer received: none
|
||
failed as expected
|
||
-/
|
||
#guard_msgs in
|
||
#eval tst7
|