3 Test the B<flags> method
11 use Test::More tests => 28;
14 sub { cmp_ok shift, 'eq', '', => 'no flags' },
15 sub { like shift, qr/c/ => '/c' },
16 sub { cmp_ok shift, 'eq', 'g' => '/g' },
17 sub { cmp_ok shift, 'eq', 'i' => '/i' },
18 sub { cmp_ok shift, 'eq', 'm' => '/m' },
19 sub { cmp_ok shift, 'eq', '' => '/o' },
20 sub { cmp_ok shift, 'eq', 's' => '/s' },
21 sub { cmp_ok shift, 'eq', 'x' => '/x' },
22 sub { cmp_ok shift, 'eq', 'p' => '/p' },
23 sub { like $_[0], qr/$_/ => "/$_ in $_[0]" for unpack "(A)*", "xi" },
24 sub { like $_[0], qr/$_/ => "/$_ in $_[0]" for unpack "(A)*", "xs" },
25 sub { like $_[0], qr/$_/ => "/$_ in $_[0]" for unpack "(A)*", "cgimsxp" },
26 sub { like $_[0], qr/$_/ => "/$_ in $_[0]" for unpack "(A)*", "e" },
27 sub { like $_[0], qr/$_/ => "/$_ in $_[0]" for unpack "(A)*", "egimsxp" },
30 use re::engine::Plugin (
40 # Provide a pattern that can match to avoid running into regexp
41 # optimizations that won't call exec on C<"" =~ //>;
44 "" =~ /x/cg; # meaningless without /g