diag.t: Don’t emit erroneous passing to-do tests

The __CATEGORIES__ entries by definition exist in perldiag.

diff --git a/t/porting/diag.t b/t/porting/diag.t
index 925b3eb..1ba0a7f 100644 (file)
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -86,7 +86,7 @@ while (<$diagfh>) {
   if (m/^=item (.*)/) {
     $cur_entry = $1 =~ s/\s+\z//r;
 
-    if (exists $entries{$cur_entry}) {
+    if (exists $entries{$cur_entry} && $entries{$cur_entry}{todo}) {
         TODO: {
             local $::TODO = "Remove the TODO entry \"$cur_entry\" from DATA as it is already in $pod near line $.";
             ok($cur_entry);