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

parser stuff

Browse source
This commit is contained in:
rhiannon morris 2022-05-08 20:03:05 +02:00
parent 8a955eebb3
commit 50a2ec02cb
2 changed files with 38 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

34
tests/Tests/Parser.idr
View file

@ -61,7 +61,7 @@ parameters {c : Bool} (grm : Grammar c a) (note : String) (input : String)
Left err => Left $ Parser err
rejectsNote : Show a => Test
rejectsNote = test "\"\{input}\"\{note} (reject)" $ do
rejectsNote = test "\"\{input}\"\{note} ‹reject›" $ do
case lexParseAll grm input of
Left err => Right ()
Right val => Left $ ShouldFail val
@ -74,7 +74,6 @@ parameters {c : Bool} (grm : Grammar c a) (input : String)
rejects = rejectsNote grm "" input
tests = "parser" :- [
skip $
"numbers" :-
let parses = parses number
in [
@ -83,20 +82,19 @@ tests = "parser" :- [
parses "1000" 1000
],
skip $
"bound vars (x, y, z ⊢)" :-
let grm = bound "test" [< "x", "y", "z"]
parses = parses grm; rejects = rejects grm
"bound vars (x, y, z | a ⊢)" :-
let grm = bound "test" {bound = [< "x", "y", "z"], avoid = [< "a"]}
parses = parses grm; rejects = rejects grm; rejectsNote = rejectsNote grm
in [
parses "x" (V 2),
parses "y" (V 1),
parses "z" (V 0),
rejects "M.x",
rejects "x.a",
rejects "a"
rejectsNote " (avoid)" "a",
rejectsNote " (not in scope)" "c"
],
skip $
"bound or free vars (x, y, z ⊢)" :-
let parses = parses $ nameWith {bound = [< "x", "y", "z"], avoid = [<]}
in [
@ -110,25 +108,25 @@ tests = "parser" :- [
parses "x.a" (Right (MakeName [< "x"] (UN "a")))
],
skip $
"dimension (x, y, z | · ⊢)" :-
let grm = dimension [< "x", "y", "z"]
parses = parses grm; rejects = rejects grm
"dimension (i, j | x, y, z ⊢)" :-
let grm = dimension {dvars = [< "i", "j"], tvars = [< "x", "y", "z"]}
parses = parses grm; rejects = rejects grm; rejectsNote = rejectsNote grm
in [
parses "0" (K Zero),
parses "1" (K One),
rejects "2",
parses "x" (B (V 2)),
rejects "a"
parses "i" (B (V 1)),
rejectsNote " (tvar)" "x",
rejectsNote " (not in scope)" "a"
],
"terms & elims (i, j | x, y, z ⊢)" :-
let dvars = [< "i", "j"]; tvars = [< "x", "y", "z"]
tgrm = term {dvars, tvars}; egrm = elim {dvars, tvars}
tparses = parsesNote tgrm " (term)"
eparses = parsesNote egrm " (elim)"
trejects = rejectsNote tgrm " (term)"
erejects = rejectsNote egrm " (elim)"
tparses = parsesNote tgrm " (term)"
eparses = parsesNote egrm " (elim)"
trejects = rejectsNote tgrm " (term)"
erejects = rejectsNote egrm " (elim)"
in [
eparses "a" (F "a"),
eparses "x" (BV 2),