minlen-get.t

   1 use strict;
   2
   3 use Test::More tests => 2;
   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 "str" =~ /pattern/;