scripts: Allow to specify a limit on the number of tests reported

This allows to report the 10 most slowest for instance.

Change-Id: I987520dbc28f598221c47df314d823f916312aab
Signed-off-by: Matthieu Patou <mat@matws.net>
Reviewed-by: Jelmer Vernooij <jelmer@samba.org>
Reviewed-by: Michael Adam <obnox@samba.org>

diff --git a/script/show_testsuite_time b/script/show_testsuite_time
index 40153218f5f668a343a5ca8609cc3122cb71ddcc..13ae0b66949408e257a93a4ff637b145c2f1dae6 100755 (executable)
--- a/script/show_testsuite_time
+++ b/script/show_testsuite_time
@@ -9,11 +9,16 @@ my $start=0;
 my $end=0;
 my %hash;
 my $fh;
+my $max=0;
 if ($#ARGV >= 0) {
        open($fh, "<", $ARGV[0]) || die "can't open ".$ARGV[0];
 } else {
        $fh = $in;
 }
+if ($#ARGV >= 1) {
+       $max = $ARGV[1];
+}
+
 while(<$fh>)
 {
        if (m/^testsuite: (.*)/) {
@@ -34,7 +39,8 @@ while(<$fh>)
                }
        }
 }
-my @sorted = sort { $hash{$a}<=>$hash{$b} } keys(%hash);
-for my $l (@sorted) {
+my @sorted = sort { $hash{$b}<=>$hash{$a} } keys(%hash);
+$max = $#sorted unless $max or ($max < $#sorted);
+for my $l (@sorted[0..($max - 1)]) {
        print $l."\n";
 }