This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reg_mesg.t: Turn off regexp warns along with deprecated
authorKarl Williamson <public@khwilliamson.com>
Thu, 2 May 2013 00:31:34 +0000 (18:31 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 2 May 2013 19:39:00 +0000 (13:39 -0600)
Some warnings are both regexp and deprecated.  To test that they are
under control of 'deprecated', it is necessary to turn off both
categories.  We currently don't test that they are also under 'regexp'
control

t/re/reg_mesg.t

index ca3d327..c0ede1c 100644 (file)
@@ -278,7 +278,7 @@ foreach my $ref (\@warning, \@experimental_regex_sets, \@deprecated) {
     my $warning_type = ($ref == \@warning)
                        ? 'regexp'
                        : ($ref == \@deprecated)
-                         ? 'deprecated'
+                         ? 'regexp, deprecated'
                          : 'experimental::regex_sets';
     while (my ($regex, $expect) = splice @$ref, 0, 2) {
         my @expect = fixup_expect($expect);