Commit 0bf9a570 authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

minor edits, report the test cases without keywords

parent 8182d17a

tests/keywords.pl

+10 −2
Original line number Diff line number Diff line
@@ -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";