File: separated_repetition.t

package info (click to toggle)
libparse-recdescent-perl 1.967013%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 772 kB
  • ctags: 780
  • sloc: perl: 6,796; sh: 54; makefile: 13; ansic: 9
file content (25 lines) | stat: -rwxr-xr-x 482 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
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);