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

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

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