diag.t: Skip, rather than, TODO for cat tests

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.

diff --git a/t/porting/diag.t b/t/porting/diag.t
index 1ba0a7f..31a1e29 100644 (file)
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -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,