diff options
| author | David Mitchell <davem@iabyn.com> | 2013-05-09 15:32:24 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2013-05-09 15:50:46 +0100 |
| commit | b2bf5aeaea16f8feb2748ebac7938a8752bcb13a (patch) | |
| tree | b775e3cb9f5d07d45ad936c6b27d20a521c2c41e | |
| parent | fd1423831cf9d78f9470d3a04e5c4e64f66173a6 (diff) | |
| download | perl-b2bf5aeaea16f8feb2748ebac7938a8752bcb13a.tar.gz | |
porting/podcheck.t: improve diagnostic
If a test fails because the number of warnings for a pod file was more
than expected, make it clear in the diag output that it was indeed
why it failed.
| -rw-r--r-- | t/porting/podcheck.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index f7e75cbbc5..9864af621c 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -1804,9 +1804,10 @@ foreach my $filename (@files) { # subtract back this number we previously added in. $total_known -= $problem_count; - $diagnostic .= $indent . $message; + $diagnostic .= $indent . qq{"$message"}; if ($problem_count > 2) { - $diagnostic .= " ($problem_count occurrences)"; + $diagnostic .= " ($problem_count occurrences," + . " expected $known_problems{$canonical}{$message})"; } foreach my $problem (@{$problems{$filename}{$message}}) { $diagnostic .= " " if $problem_count == 1; |