Add a couple of failing peg.ebnf tests
parent
c26d87e117
commit
179ea21c11
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue