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