This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
diag.t: Skip, rather than, TODO for cat tests
authorFather Chrysostomos <sprout@cpan.org>
Wed, 27 Jun 2012 15:15:27 +0000 (08:15 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 27 Jun 2012 15:15:27 +0000 (08:15 -0700)
Each item in the exception list for category/severity tests passes
either one or the other, so just skip them, to avoid passing to-do
tests, which are just a distraction.  Separating them into two lists
is probably overkill.

t/porting/diag.t

index 1ba0a7f..31a1e29 100644 (file)
@@ -364,7 +364,7 @@ sub check_message {
         state %qrs;
         my $qr = $qrs{$severity} ||= qr/$severity/;
 
-        local $::TODO = "Severity/category not correct yet"
+        return $ret
           if $entries{$key}{cattodo};
 
         like $entries{$key}{severity}, $qr,