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
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
my $re;
my $convert;
package TestParser {
use base qw( Parser::MGC );
sub parse
{
my $self = shift;
return $self->generic_token( token => $re, $convert );
}
}
my $parser = TestParser->new;
$re = qr/[A-Z]+/;
is( $parser->from_string( "HELLO" ), "HELLO", 'Simple RE' );
ok( dies { $parser->from_string( "hello" ) }, 'Simple RE fails' );
$re = qr/[A-Z]+/i;
is( $parser->from_string( "Hello" ), "Hello", 'RE with flags' );
$convert = sub { lc $_[1] };
is( $parser->from_string( "Hello" ), "hello", 'Conversion function' );
done_testing;
|
