diff options
| -rwxr-xr-x | tests/keywords.pl | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/tests/keywords.pl b/tests/keywords.pl index 535c54e82..2c83b546f 100755 --- a/tests/keywords.pl +++ b/tests/keywords.pl @@ -53,6 +53,8 @@ my %k; # keyword count my %t; # keyword to test case mapping my @miss; # test cases without keywords set +my $count; + for $t (split(/ /, $TESTCASES)) { if(loadtest("${TESTDIR}/test${t}")) { # bad case @@ -62,6 +64,7 @@ for $t (split(/ /, $TESTCASES)) { if(!$what[0]) { push @miss, $t; + next; } for(@what) { @@ -70,9 +73,11 @@ for $t (split(/ /, $TESTCASES)) { $k{$_}++; $t{$_} .= "$_ "; } + $count++; } -my @mtest = reverse sort { $k{$a} <=> $k{$b} } keys %k; +# numerically on amount, or alphebetically if same amount +my @mtest = reverse sort { $k{$a} <=> $k{$b} || $b cmp $a } keys %k; print <<TOP <table><tr><th>No Tests</th><th>Keyword</th></tr> @@ -81,8 +86,11 @@ TOP for $t (@mtest) { printf "<tr><td>%d</td><td>$t</td></tr>\n", $k{$t}; } -print "</table>\n"; +printf "</table><p> $count tests (%d lack keywords)\n", + scalar(@miss); for(@miss) { print STDERR "$_ "; } + +print STDERR "\n"; |