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

Add a couple of failing peg.ebnf tests

db4
Chris Double 2008-06-19 01:10:44 +12:00
parent c26d87e117
commit 179ea21c11
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -399,6 +399,16 @@ main = Primary
"number=digit+:n 'a'" 'ebnf' parse remaining>> length zero? "number=digit+:n 'a'" 'ebnf' parse remaining>> length zero?
] unit-test ] unit-test
{ t } [
"foo=(name):n !(keyword) => [[ n ]]" 'rule' parse ast>>
"foo=name:n !(keyword) => [[ n ]]" 'rule' parse ast>> =
] unit-test
{ t } [
"foo=!(keyword) (name):n => [[ n ]]" 'rule' parse ast>>
"foo=!(keyword) name:n => [[ n ]]" 'rule' parse ast>> =
] unit-test
<< <<
EBNF: parser1 EBNF: parser1
foo='a' foo='a'