moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 23:58:49 -05:00
Code Issues Releases Wiki Activity

starting to produce a summary in HTML

Browse Source
This commit is contained in:
Daniel Stenberg 2005-04-16 12:43:32 +00:00
parent 69b1ac7dcd
commit 8182d17ae1
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
tests/keywords.pl
View File

@ -48,6 +48,11 @@ for(sort { $a <=> $b } @cmds) {
}
my $t;
my %k; # keyword count
my %t; # keyword to test case mapping
my @miss; # test cases without keywords set
for $t (split(/ /, $TESTCASES)) {
if(loadtest("${TESTDIR}/test${t}")) {
# bad case
@ -55,9 +60,29 @@ for $t (split(/ /, $TESTCASES)) {
}
my @what = getpart("info", "keywords");
if(!$what[0]) {
push @miss, $t;
}
for(@what) {
print "Test $t: $_";
chomp;
#print "Test $t: $_\n";
$k{$_}++;
$t{$_} .= "$_ ";
}
}
my @mtest = reverse sort { $k{$a} <=> $k{$b} } keys %k;
print <<TOP
<table><tr><th>No Tests</th><th>Keyword</th></tr>
TOP
;
for $t (@mtest) {
printf "<tr><td>%d</td><td>$t</td></tr>\n", $k{$t};
}
print "</table>\n";
for(@miss) {
print STDERR "$_ ";
}