]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blob - t/20-methods/minlen/get.t
This is 0.11
[perl/modules/re-engine-Plugin.git] / t / 20-methods / minlen / get.t
1 use strict;
2
3 use Test::More tests => 3;
4
5 use re::engine::Plugin (
6     comp => sub {
7         my $re = shift;
8         $re->minlen(2);
9     },
10     exec => sub {
11         my $re = shift;
12         my $minlen = $re->minlen;
13         cmp_ok $minlen, '==', 2, 'minlen accessor';
14     },
15 );
16
17 pass "making match";
18 "s" =~ /pattern/;
19 "st" =~ /pattern/;
20 "str" =~ /pattern/;