From 9c3e8e01b899ff41442e59a8d18532c177d1bdee Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 8 Jan 2011 15:43:55 -0700 Subject: [PATCH] diag.t: Check that TODOs haven't been done If a TODO diagnostic message is added to perldiag.pod, this patch makes sure that it warns to remove the TODO. --- t/porting/diag.t | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/t/porting/diag.t b/t/porting/diag.t index e3bfdaa..4bc4ed7 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -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; -- 2.7.4