diff options
| -rwxr-xr-x | tests/keywords.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/keywords.pl b/tests/keywords.pl index 0a2d38709..6eaff4e4c 100755 --- a/tests/keywords.pl +++ b/tests/keywords.pl @@ -131,7 +131,8 @@ for $t (@mtest) { printf "<tr><td>%d</td><td>$t</td><td>%s</td></tr>\n", $k{$t}, show($t{$t}); } -printf "</table><p> $count tests (%d lack keywords)\n", +printf "</table><p> $count out of %d tests (%d lack keywords)\n", + scalar(@miss) + $count, scalar(@miss); for(@miss) { @@ -140,7 +141,8 @@ for(@miss) { print STDERR "\n"; -print "<p>Error codes tested for:<br>\n"; +printf "<p> %d different error codes tested for:<br>\n", + scalar(keys %errors); # numerically on amount, or alphebetically if same amount my @etest = sort { $a <=> $b} keys %errors; |