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

Add failing peg.ebnf tests

db4
Chris Double 2008-06-16 17:39:14 +12:00
parent 5a133ceece
commit 1b8943a8e0
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -365,3 +365,36 @@ main = Primary
"ab c ab c" [EBNF a="a" "b" foo=(a "c")* EBNF] call ast>>
] unit-test
{ V{ "a" "a" "a" } } [
"aaa" [EBNF a=('a')* b=!('b') a:x => [[ drop x ]] EBNF] call ast>>
] unit-test
{ t } [
"aaa" [EBNF a=('a')* b=!('b') a:x => [[ drop x ]] EBNF] call ast>>
"aaa" [EBNF a=('a')* b=!('b') (a):x => [[ drop x ]] EBNF] call ast>> =
] unit-test
{ V{ "a" "a" "a" } } [
"aaa" [EBNF a=('a')* b=a:x => [[ drop x ]] EBNF] call ast>>
] unit-test
{ t } [
"aaa" [EBNF a=('a')* b=a:x => [[ drop x ]] EBNF] call ast>>
"aaa" [EBNF a=('a')* b=(a):x => [[ drop x ]] EBNF] call ast>> =
] unit-test
{ t } [
"number=(digit)+:n 'a'" 'ebnf' parse remaining>> length zero?
] unit-test
{ t } [
"number=(digit)+ 'a'" 'ebnf' parse remaining>> length zero?
] unit-test
{ t } [
"number=digit+ 'a'" 'ebnf' parse remaining>> length zero?
] unit-test
{ t } [
"number=digit+:n 'a'" 'ebnf' parse remaining>> length zero?
] unit-test