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

View File

@ -399,6 +399,16 @@ main = Primary
"number=digit+:n 'a'" 'ebnf' parse remaining>> length zero?
] 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
foo='a'
@ -431,4 +441,4 @@ foo=<foreign any-char> 'd'
{ V{ CHAR: a "d" } } [
"ad" parser4 ast>>
] unit-test
] unit-test