rhi/quox
rhi
/
quox
1
0
Fork 0
Code Issues 16 Pull Requests 1 Releases Wiki Activity

update pretty-printing tests

This commit is contained in:
rhiannon morris 2024-04-12 22:00:08 +02:00
parent 7883a3cae7
commit 95a0b38d74
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/Tests/PrettyTerm.idr
View File

@ -105,8 +105,8 @@ tests = "pretty printing terms" :- [
], ],
"type universes" :- [ "type universes" :- [
testPrettyT [<] [<] (^TYPE 0) "★⁰" "Type 0", testPrettyT [<] [<] (^TYPE 0) "★" "Type",
testPrettyT [<] [<] (^TYPE 100) "★¹⁰⁰" "Type 100" testPrettyT [<] [<] (^TYPE 100) "★¹⁰⁰" "Type^100"
], ],
"function types" :- [ "function types" :- [
@ -120,8 +120,8 @@ tests = "pretty printing terms" :- [
"1.(x : A) -> B x", "1.(x : A) -> B x",
testPrettyT [<] [<] testPrettyT [<] [<]
(^PiY Zero "A" (^TYPE 0) (^Arr Any (^BVT 0) (^BVT 0))) (^PiY Zero "A" (^TYPE 0) (^Arr Any (^BVT 0) (^BVT 0)))
"0.(A : ★⁰) → ω.A → A" "0.(A : ★) → ω.A → A"
"0.(A : Type 0) -> #.A -> A", "0.(A : Type) -> #.A -> A",
testPrettyT [<] [<] testPrettyT [<] [<]
(^Arr Any (^Arr Any (^FT "A" 0) (^FT "A" 0)) (^FT "A" 0)) (^Arr Any (^Arr Any (^FT "A" 0) (^FT "A" 0)) (^FT "A" 0))
"ω.(ω.A → A) → A" "ω.(ω.A → A) → A"
@ -133,8 +133,8 @@ tests = "pretty printing terms" :- [
testPrettyT [<] [<] testPrettyT [<] [<]
(^PiY Zero "P" (^Arr Zero (^FT "A" 0) (^TYPE 0)) (^PiY Zero "P" (^Arr Zero (^FT "A" 0) (^TYPE 0))
(E $ ^App (^BV 0) (^FT "a" 0))) (E $ ^App (^BV 0) (^FT "a" 0)))
"0.(P : 0.A → ★⁰) → P a" "0.(P : 0.A → ★) → P a"
"0.(P : 0.A -> Type 0) -> P a" "0.(P : 0.A -> Type) -> P a"
], ],
"pair types" :- [ "pair types" :- [
@ -193,8 +193,8 @@ tests = "pretty printing terms" :- [
"case" :- [ "case" :- [
testPrettyE [<] [<] testPrettyE [<] [<]
(^CasePair One (^F "a" 0) (SN $ ^TYPE 1) (SN $ ^TYPE 0)) (^CasePair One (^F "a" 0) (SN $ ^TYPE 1) (SN $ ^TYPE 0))
"case1 a return ★¹ of { (_, _) ⇒ ★⁰ }" "case1 a return ★¹ of { (_, _) ⇒ ★ }"
"case1 a return Type 1 of { (_, _) => Type 0 }", "case1 a return Type^1 of { (_, _) => Type }",
testPrettyT [<] [<] testPrettyT [<] [<]
(^LamY "u" (E $ (^LamY "u" (E $
^CaseEnum One (^F "u" 0) ^CaseEnum One (^F "u" 0)
@ -209,10 +209,10 @@ tests = "pretty printing terms" :- [
"type-case" :- [ "type-case" :- [
testPrettyE [<] [<] testPrettyE [<] [<]
{label = "type-case ℕ ∷ ★⁰ return ★⁰ of { ⋯ }"} {label = "type-case ℕ ∷ ★ return ★ of { ⋯ }"}
(^TypeCase (^Ann (^NAT) (^TYPE 0)) (^TYPE 0) empty (^NAT)) (^TypeCase (^Ann (^NAT) (^TYPE 0)) (^TYPE 0) empty (^NAT))
"type-case ℕ ∷ ★⁰ return ★⁰ of { _ ⇒ ℕ }" "type-case ℕ ∷ ★ return ★ of { _ ⇒ ℕ }"
"type-case Nat :: Type 0 return Type 0 of { _ => Nat }" "type-case Nat :: Type return Type of { _ => Nat }"
], ],
skipWith "(todo: print user-written redundant annotations)" $ skipWith "(todo: print user-written redundant annotations)" $
@ -236,6 +236,6 @@ tests = "pretty printing terms" :- [
testPrettyE [<] [<] testPrettyE [<] [<]
(^Ann (^Arr One (^FT "A" 0) (^FT "A" 0)) (^TYPE 7)) (^Ann (^Arr One (^FT "A" 0) (^FT "A" 0)) (^TYPE 7))
"(1.A → A) ∷ ★⁷" "(1.A → A) ∷ ★⁷"
"(1.A -> A) :: Type 7" "(1.A -> A) :: Type^7"
] ]
] ]