51 lines
1.2 KiB
Factor
51 lines
1.2 KiB
Factor
USING: kernel peg peg.parsers tools.test accessors ;
|
|
IN: peg.parsers.tests
|
|
|
|
{ V{ "a" } }
|
|
[ "a" "a" token "," token list-of parse ] unit-test
|
|
|
|
{ V{ "a" "a" "a" "a" } }
|
|
[ "a,a,a,a" "a" token "," token list-of parse ] unit-test
|
|
|
|
[ "a" "a" token "," token list-of-many parse ] must-fail
|
|
|
|
{ V{ "a" "a" "a" "a" } }
|
|
[ "a,a,a,a" "a" token "," token list-of-many parse ] unit-test
|
|
|
|
[ "aaa" "a" token 4 exactly-n parse ] must-fail
|
|
|
|
{ V{ "a" "a" "a" "a" } }
|
|
[ "aaaa" "a" token 4 exactly-n parse ] unit-test
|
|
|
|
[ "aaa" "a" token 4 at-least-n parse ] must-fail
|
|
|
|
{ V{ "a" "a" "a" "a" } }
|
|
[ "aaaa" "a" token 4 at-least-n parse ] unit-test
|
|
|
|
{ V{ "a" "a" "a" "a" "a" } }
|
|
[ "aaaaa" "a" token 4 at-least-n parse ] unit-test
|
|
|
|
{ V{ "a" "a" "a" "a" } }
|
|
[ "aaaa" "a" token 4 at-most-n parse ] unit-test
|
|
|
|
{ V{ "a" "a" "a" "a" } }
|
|
[ "aaaaa" "a" token 4 at-most-n parse ] unit-test
|
|
|
|
{ V{ "a" "a" "a" } }
|
|
[ "aaa" "a" token 3 4 from-m-to-n parse ] unit-test
|
|
|
|
{ V{ "a" "a" "a" "a" } }
|
|
[ "aaaa" "a" token 3 4 from-m-to-n parse ] unit-test
|
|
|
|
{ V{ "a" "a" "a" "a" } }
|
|
[ "aaaaa" "a" token 3 4 from-m-to-n parse ] unit-test
|
|
|
|
{ 97 }
|
|
[ "a" any-char parse ] unit-test
|
|
|
|
{ V{ } }
|
|
[ "" epsilon parse ] unit-test
|
|
|
|
{ "a" } [
|
|
"a" "a" token just parse
|
|
] unit-test |