From 8182d17ae110b88788b6a94345af268d37fffb3e Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Sat, 16 Apr 2005 12:43:32 +0000
Subject: starting to produce a summary in HTML

---
 tests/keywords.pl | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

(limited to 'tests/keywords.pl')

diff --git a/tests/keywords.pl b/tests/keywords.pl
index c086e74ee..535c54e82 100755
--- a/tests/keywords.pl
+++ b/tests/keywords.pl
@@ -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 "$_ ";
+}
-- 
cgit v1.2.1