]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blob - t/20-methods/minlen/set.t
This is 0.11
[perl/modules/re-engine-Plugin.git] / t / 20-methods / minlen / set.t
1 use strict;
2
3 use Test::More tests => 1;
4
5 use re::engine::Plugin (
6     comp => sub {
7         my $re = shift;
8         $re->minlen(length("str") + 1); # make "str" too short
9     },
10     exec => sub { fail "exec called" },
11 );
12
13 pass "making match";
14 "str" =~ /pattern/;