t/methods/minlen/bytes.t

   1 =pod
   2
   3 C<minlen> speaks bytes, not characters.
   4
   5 =cut
   6
   7 use strict;
   8 use Test::More tests => 3;
   9 use re::engine::Plugin (
  10     comp => sub { shift->minlen(5) },
  11     exec => sub {
  12         my ($re, $str) = @_;
  13         pass "Called with $str";
  14     },
  15 );
  16
  17 my $str = "ævar";
  18 is(length $str, 5, "$str is 5 char long"); # Chars
  19 $str =~ /pattern/; # no ->exec
  20
  21 chop $str;
  22 is(length $str, 4, "$str is 4 char long"); # Chars
  23 $str =~ /pattern/; # yes ->exec