rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

3 more tests

Browse source
This commit is contained in:
rhiannon morris 2023-04-01 22:07:01 +02:00
parent ba2818a865
commit 308834a1c0
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tests/Tests/PrettyTerm.idr
View file

@ -68,8 +68,7 @@ tests = "pretty printing terms" :- [
], ],
"function types" :- [ "function types" :- [
skipWith "todo: non-dependent notation" $ testPrettyT [<] [<] (Arr One (FT "A") (FT "B")) "1.A → B" "1.A -> B",
testPrettyT [<] [<] (Arr One (FT "A") (FT "B")) "A ⊸ B" "A -o B",
testPrettyT [<] [<] testPrettyT [<] [<]
(Pi_ One "x" (FT "A") (E $ F "B" :@ BVT 0)) (Pi_ One "x" (FT "A") (E $ F "B" :@ BVT 0))
"1.(x : A) → B x" "1.(x : A) → B x"
@ -78,12 +77,18 @@ tests = "pretty printing terms" :- [
(Pi_ Zero "A" (TYPE 0) $ Arr Any (BVT 0) (BVT 0)) (Pi_ Zero "A" (TYPE 0) $ Arr Any (BVT 0) (BVT 0))
"0.(A : ★₀) → ω.A → A" "0.(A : ★₀) → ω.A → A"
"0.(A : Type0) -> #.A -> A", "0.(A : Type0) -> #.A -> A",
todo #"print (and parse) the below as "(A ↠ A) ↠ A""#,
testPrettyT [<] [<] testPrettyT [<] [<]
(Arr Any (Arr Any (FT "A") (FT "A")) (FT "A")) (Arr Any (Arr Any (FT "A") (FT "A")) (FT "A"))
"ω.(ω.A → A) → A" "ω.(ω.A → A) → A"
"#.(#.A -> A) -> A", "#.(#.A -> A) -> A",
todo "non-dependent, left and right nested" testPrettyT [<] [<]
(Arr Any (FT "A") (Arr Any (FT "A") (FT "A")))
"ω.A → ω.A → A"
"#.A -> #.A -> A",
testPrettyT [<] [<]
(Pi_ Zero "P" (Arr Zero (FT "A") (TYPE 0)) (E $ BV 0 :@ FT "a"))
"0.(P : 0.A → ★₀) → P a"
"0.(P : 0.A -> Type0) -> P a"
], ],
"pair types" :- [ "pair types" :- [