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 <[email protected]> Reviewed-by: Jelmer Vernooij <[email protected]> Reviewed-by: Michael Adam <[email protected]>
zhoury14 · Oct 17, 2014 · 4055eb6 · 4055eb6
1 parent 14b5eb9
commit 4055eb6
Showing 1 changed file with 8 additions and 2 deletions.
diff --git 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";
 }