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/;