This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
diag.t: Don’t emit erroneous passing to-do tests
authorFather Chrysostomos <sprout@cpan.org>
Wed, 27 Jun 2012 13:03:35 +0000 (06:03 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 27 Jun 2012 13:03:35 +0000 (06:03 -0700)
The __CATEGORIES__ entries by definition exist in perldiag.

t/porting/diag.t

index 925b3eb..1ba0a7f 100644 (file)
@@ -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);