use strict;
use warnings;
use Test::More 'no_plan';
use Parse::RecDescent;
my $parser = Parse::RecDescent->new( q{
sep: some(?) '(' repeated(s? /,/) ')' 'elements'
{
$return = $item[3];
}
repeated: 'repeated'
some: 'some'
});
ok($parser, 'Created parser');
my $str = 'some (repeated, repeated, repeated, repeated) elements';
my $result = $parser->sep($str);
my $expected = ['repeated', 'repeated', 'repeated', 'repeated'];
is_deeply($result, $expected);