propagate /msix and (?msix) etc flags into (??{})

[perl5.git] / ext / re / t / reflags.t

diff --git a/ext/re/t/reflags.t b/ext/re/t/reflags.t
index 56763fd..b2cbf80 100644 (file)
--- a/ext/re/t/reflags.t
+++ b/ext/re/t/reflags.t
@@ -10,26 +10,35 @@ BEGIN {
 
 use strict;
 
 
 use strict;
 

-use Test::More tests => 53;
+use Test::More tests => 62;

 
 my @flags = qw( a d l u );
 
 use re '/i';
 ok "Foo" =~ /foo/, 'use re "/i"';
 
 my @flags = qw( a d l u );
 
 use re '/i';
 ok "Foo" =~ /foo/, 'use re "/i"';

+ok "Foo" =~ /(??{'foo'})/, 'use re "/i" (??{})';

 no re '/i';
 ok "Foo" !~ /foo/, 'no re "/i"';
 no re '/i';
 ok "Foo" !~ /foo/, 'no re "/i"';

+ok "Foo" !~ /(??{'foo'})/, 'no re "/i" (??{})';

 use re '/x';
 ok "foo" =~ / foo /, 'use re "/x"';
 use re '/x';
 ok "foo" =~ / foo /, 'use re "/x"';

+ok "foo" =~ / (??{' foo '}) /, 'use re "/x" (??{})';

 no re '/x';
 ok "foo" !~ / foo /, 'no re "/x"';
 no re '/x';
 ok "foo" !~ / foo /, 'no re "/x"';

+ok "foo" !~ /(??{' foo '})/, 'no re "/x" (??{})';
+ok "foo" !~ / (??{'foo'}) /, 'no re "/x" (??{})';

 use re '/s';
 ok "\n" =~ /./, 'use re "/s"';
 use re '/s';
 ok "\n" =~ /./, 'use re "/s"';

+ok "\n" =~ /(??{'.'})/, 'use re "/s" (??{})';

 no re '/s';
 ok "\n" !~ /./, 'no re "/s"';
 no re '/s';
 ok "\n" !~ /./, 'no re "/s"';

+ok "\n" !~ /(??{'.'})/, 'no re "/s" (??{})';

 use re '/m';
 ok "\nfoo" =~ /^foo/, 'use re "/m"';
 use re '/m';
 ok "\nfoo" =~ /^foo/, 'use re "/m"';

+ok "\nfoo" =~ /(??{'^'})foo/, 'use re "/m" (??{})';

 no re '/m';
 ok "\nfoo" !~ /^foo/, 'no re "/m"';
 no re '/m';
 ok "\nfoo" !~ /^foo/, 'no re "/m"';

+ok "\nfoo" !~ /(??{'^'})foo/, 'no re "/m" (??{})';

 
 use re '/xism';
 ok qr// =~ /(?=.*x)(?=.*i)(?=.*s)(?=.*m)/, 'use re "/multiple"';
 
 use re '/xism';
 ok qr// =~ /(?=.*x)(?=.*i)(?=.*s)(?=.*m)/, 'use re "/multiple"';