moparisthebest
/
curl
mirror of https://github.com/moparisthebest/curl
1
0
Fork 0
Code Issues Releases Wiki Activity

minor edits, report the test cases without keywords

This commit is contained in:
Daniel Stenberg 2005-04-16 23:15:12 +00:00
parent 8182d17ae1
commit 0bf9a5704b
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/keywords.pl
View File

@ -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";