This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
diag.t: Check that TODOs haven't been done
[perl5.git] / t / porting / diag.t
index e3bfdaa..4bc4ed7 100644 (file)
@@ -71,6 +71,11 @@ while (<$diagfh>) {
   if (m/^=item (.*)/) {
     $cur_entry = $1;
 
+    if (exists $entries{$cur_entry}) {
+        fail($cur_entry);
+        diag("   Remove the TODO entry \"$cur_entry\",\n"
+           . "   from $0 as it is already in $pod near line $.");
+    }
     # Make sure to init this here, so an actual entry in perldiag
     # overwrites one in DATA.
     $entries{$cur_entry}{todo} = 0;