This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/reg_mesg.t: Add test
authorKarl Williamson <khw@cpan.org>
Thu, 8 Nov 2018 01:44:56 +0000 (18:44 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 16 Nov 2018 15:56:37 +0000 (08:56 -0700)
Verify this still works after the recent removal of the sizing pass

t/re/reg_mesg.t

index 369aaea..9717b46 100644 (file)
@@ -529,6 +529,7 @@ my @warning = (
     '/(?=a)*/' => '(?=a)* matches null string many times {#} m/(?=a)*{#}/',
     'my $x = \'\m\'; qr/a$x/' => 'Unrecognized escape \m passed through {#} m/a\m{#}/',
     '/\q/' => 'Unrecognized escape \q passed through {#} m/\q{#}/',
+    '/\q\p{Any}/' => 'Unrecognized escape \q passed through {#} m/\q{#}\p{Any}/',
 
     # These two tests do not include the marker, because regcomp.c no
     # longer knows where it goes by the time this warning is emitted.