From 8182d17ae110b88788b6a94345af268d37fffb3e Mon Sep 17 00:00:00 2001 From: Daniel Stenberg 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(-) 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 <No TestsKeyword +TOP + ; +for $t (@mtest) { + printf "%d$t\n", $k{$t}; +} +print "\n"; + +for(@miss) { + print STDERR "$_ "; +} -- cgit v1.2.3