]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blob - t/methods/minlen/get.t
Importing re-engine-Plugin-0.04.tar.gz
[perl/modules/re-engine-Plugin.git] / t / 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/;