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.)
21 lines
631 B
Text
21 lines
631 B
Text
import Lean
|
|
open Lean.SubExpr
|
|
|
|
def ps := [#[], #[0], #[1], #[0,1], #[1,0] , #[0,0], #[1,2,3]]
|
|
theorem Pos.roundtrip :
|
|
true = ps.all fun x => x == (Pos.toArray <| Pos.ofArray <| x)
|
|
:= by native_decide
|
|
|
|
theorem Pos.append_roundtrip :
|
|
true = (List.all
|
|
(ps.bind fun p => ps.map fun q => (p,q))
|
|
(fun (x,y) => (x ++ y) == (Pos.toArray <| (Pos.append (Pos.ofArray x) (Pos.ofArray y))))
|
|
) := by native_decide
|
|
|
|
theorem Pos.stringRoundtrip :
|
|
true = ps.all (fun p =>
|
|
let x := Pos.ofArray p
|
|
some x == (Except.toOption $ Pos.fromString? $ Pos.toString $ x)
|
|
) := by native_decide
|
|
|
|
#guard Pos.toString Nat.zero == "/"
|