diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-06-27 06:03:35 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-27 06:03:35 -0700 |
| commit | 7d8813ce5c7b34ca3ca35355ee320ba839a1eda0 (patch) | |
| tree | e7643d38ea9cf0c0a922bad31391fdc2b1c547c4 /t/porting | |
| parent | 989843c833048f47253702c8ffd749d2315cbe3c (diff) | |
| download | perl-7d8813ce5c7b34ca3ca35355ee320ba839a1eda0.tar.gz | |
diag.t: Don’t emit erroneous passing to-do tests
The __CATEGORIES__ entries by definition exist in perldiag.
Diffstat (limited to 't/porting')
| -rw-r--r-- | t/porting/diag.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/porting/diag.t b/t/porting/diag.t index 925b3eb5be..1ba0a7fe67 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); |