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.
123 lines
4 KiB
Text
123 lines
4 KiB
Text
import Lean
|
||
/-!
|
||
# Tests of `pp.unicode` pretty printer option
|
||
-/
|
||
|
||
open Lean PrettyPrinter
|
||
|
||
/-!
|
||
Testing a notation with a `unicode` operator.
|
||
|
||
Respects the current setting of `pp.unicode` exactly.
|
||
-/
|
||
def And' := And
|
||
|
||
notation:35 x:36 unicode(" ∧' ", " /\\' ") y:35 => And' x y
|
||
|
||
/-- info: True ∧' False : Prop -/
|
||
#guard_msgs in #check True ∧' False
|
||
|
||
/-- info: True /\' False : Prop -/
|
||
#guard_msgs in set_option pp.unicode false in #check True ∧' False
|
||
|
||
/-- info: True✝ ∧' False✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(True ∧' False))
|
||
/-- info: True✝ ∧' False✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(True /\' False))
|
||
/-- info: True✝ /\' False✝ -/
|
||
#guard_msgs in set_option pp.unicode false in #eval do ppTerm (← `(True ∧' False))
|
||
/-- info: True✝ /\' False✝ -/
|
||
#guard_msgs in set_option pp.unicode false in #eval do ppTerm (← `(True /\' False))
|
||
|
||
/-!
|
||
The generated name only uses the unicode version.
|
||
-/
|
||
/-- info: «term_∧'_» : TrailingParserDescr -/
|
||
#guard_msgs in #check «term_∧'_»
|
||
|
||
/-!
|
||
Testing a notation with a `unicode` operator with `preserveForPP`.
|
||
|
||
Respects the current setting of `pp.unicode` *if* the underlying atom is in the unicode form.
|
||
The `notation` command creates a pretty printer using the ASCII form,
|
||
so this is only possible if a delaborator creates a syntax quotation with the unicode form.
|
||
-/
|
||
def And'' := And
|
||
|
||
notation:35 x:36 unicode(" ∧'' ", " /\\'' ", preserveForPP) y:35 => And'' x y
|
||
|
||
/-- info: True /\'' False : Prop -/
|
||
#guard_msgs in #check True ∧'' False
|
||
|
||
/-- info: True /\'' False : Prop -/
|
||
#guard_msgs in set_option pp.unicode false in #check True ∧'' False
|
||
|
||
/-- info: True✝ ∧'' False✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(True ∧'' False))
|
||
/-- info: True✝ /\'' False✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(True /\'' False))
|
||
/-- info: True✝ /\'' False✝ -/
|
||
#guard_msgs in set_option pp.unicode false in #eval do ppTerm (← `(True ∧'' False))
|
||
/-- info: True✝ /\'' False✝ -/
|
||
#guard_msgs in set_option pp.unicode false in #eval do ppTerm (← `(True /\'' False))
|
||
|
||
/-!
|
||
The `fun` notation uses `preserveForPP`.
|
||
When `pp.unicode.fun` is true, its elaborator uses `↦`.
|
||
-/
|
||
/-- info: fun x => x : ?m.1 → ?m.1 -/
|
||
#guard_msgs in #check fun x => x
|
||
|
||
/-- info: fun x ↦ x : ?m.1 → ?m.1 -/
|
||
#guard_msgs in set_option pp.unicode.fun true in #check fun x => x
|
||
|
||
/-- info: fun x => x : ?m.1 -> ?m.1 -/
|
||
#guard_msgs in set_option pp.unicode.fun true in set_option pp.unicode false in #check fun x => x
|
||
|
||
-- The delaborator is what uses `↦`, so the option has no effect here.
|
||
/-- info: fun x✝ => x✝ -/
|
||
#guard_msgs in set_option pp.unicode.fun true in #eval do ppTerm (← `(fun x => x))
|
||
|
||
/-- info: fun x✝ => x✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(fun x => x))
|
||
/-- info: fun x✝ ↦ x✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(fun x ↦ x))
|
||
/-- info: fun x✝ => x✝ -/
|
||
#guard_msgs in set_option pp.unicode false in #eval do ppTerm (← `(fun x ↦ x))
|
||
|
||
/-!
|
||
Testing `infixr` with `unicode(...)`
|
||
-/
|
||
|
||
def Or' := Or
|
||
infixr:35 unicode(" ∨' ", " \\/' ") => Or'
|
||
|
||
/-- info: True ∨' False : Prop -/
|
||
#guard_msgs in #check True ∨' False
|
||
/-- info: True ∨' False : Prop -/
|
||
#guard_msgs in #check True \/' False
|
||
/-- info: True \/' False : Prop -/
|
||
#guard_msgs in set_option pp.unicode false in #check True ∨' False
|
||
/-- info: True \/' False : Prop -/
|
||
#guard_msgs in set_option pp.unicode false in #check True \/' False
|
||
|
||
/-!
|
||
Tests that used to be in `tests/lean/ppUnicode.lean`.
|
||
-/
|
||
/-!
|
||
`↦` is recognized, but prints as `=>` by default.
|
||
-/
|
||
/-- info: fun a b c => a + b + c + 1 : Nat → Nat → Nat → Nat -/
|
||
#guard_msgs in #check fun a b c ↦ a + b + c + 1
|
||
/-!
|
||
Can enable pretty printing as `↦` using `pp.unicode.fun`.
|
||
-/
|
||
/-- info: fun a b c ↦ a + b + c + 1 : Nat → Nat → Nat → Nat -/
|
||
#guard_msgs in set_option pp.unicode.fun true in
|
||
#check fun a b c => a + b + c + 1
|
||
/-!
|
||
Using `pp.unicode.fun` doesn't break the `Exists` app unexpander.
|
||
-/
|
||
/-- info: ∃ n, n ≤ 0 : Prop -/
|
||
#guard_msgs in set_option pp.unicode.fun true in
|
||
#check ∃ n : Nat, n ≤ 0
|