show up to 5 (random) test cases using the keyword

diff --git a/tests/keywords.pl b/tests/keywords.pl
index 2c83b546fa3e2e4196f02dd8ffbc2a11b4488172..620317d73709183a33693d67e85610d0a4969f51 100755 (executable)
--- a/tests/keywords.pl
+++ b/tests/keywords.pl
@@ -71,20 +71,47 @@ for $t (split(/ /, $TESTCASES)) {
         chomp;
         #print "Test $t: $_\n";
         $k{$_}++;
-        $t{$_} .= "$_ ";
+        $t{$_} .= "$t ";
     }
     $count++;
 }
 
+sub show {
+    my ($list)=@_;
+    my @a = split(" ", $list);
+    my $ret;
+
+    my $c;
+    my @l = sort {rand(100) - 50} @a;
+    my @ll;
+
+    for(1 .. 6) {
+        my $v = shift @l;
+        if($v) {
+            push @ll, $v;
+        }
+    }
+
+    for (sort {$a <=> $b} @ll) {
+        if($c++ == 5) {
+            $ret .= "...";
+            last;
+        }
+        $ret .= "$_ ";
+    }
+    return $ret;
+}
+
 # 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>
+<table><tr><th>Num</th><th>Keyword</th><th>Test Cases</th></tr>
 TOP
     ;
 for $t (@mtest) {
-    printf "<tr><td>%d</td><td>$t</td></tr>\n", $k{$t};
+    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",
     scalar(@miss);