From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 27 Jun 2012 13:03:35 +0000 (-0700)
Subject: diag.t: Don’t emit erroneous passing to-do tests
X-Git-Tag: upstream/5.20.0~6227
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=7d8813ce5c7b34ca3ca35355ee320ba839a1eda0;p=platform%2Fupstream%2Fperl.git

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
--- 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);