steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix ebnf tests

release
Chris Double 2007-11-28 13:05:53 +13:00
parent 35f96d1c85
commit 28e9c0e6e0
1 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
extra/peg/ebnf/ebnf-tests.factor
View File

@ -9,27 +9,33 @@ IN: temporary
] unit-test
{ T{ ebnf-terminal f "55" } } [
"\"55\"" 'terminal' parse parse-result-ast
"'55'" 'terminal' parse parse-result-ast
] unit-test
{
T{ ebnf-rule f
"digit"
V{
T{ ebnf-choice f
V{ T{ ebnf-terminal f "1" } T{ ebnf-terminal f "2" } }
}
f
}
}
} [
"digit = '1' | '2'" 'rule' parse parse-result-ast
] unit-test
{
T{ ebnf-rule f
"digit"
T{ ebnf-choice f
V{ T{ ebnf-terminal f "1" } T{ ebnf-terminal f "2" } }
V{
T{ ebnf-sequence f
V{ T{ ebnf-terminal f "1" } T{ ebnf-terminal f "2" } }
}
f
}
}
}
} [
"digit = \"1\" | \"2\"" 'rule' parse parse-result-ast
] unit-test
{
T{ ebnf-rule f
"digit"
T{ ebnf-sequence f
V{ T{ ebnf-terminal f "1" } T{ ebnf-terminal f "2" } }
}
}
} [
"digit = \"1\" \"2\"" 'rule' parse parse-result-ast
"digit = '1' '2'" 'rule' parse parse-result-ast
] unit-test