From 4055eb6b7dbd845cfc431a2cf7f1867240046fdf Mon Sep 17 00:00:00 2001
From: Matthieu Patou <mat@matws.net>
Date: Sun, 12 Oct 2014 17:56:10 -0700
Subject: 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>
---
 script/show_testsuite_time | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'script')

diff --git a/script/show_testsuite_time b/script/show_testsuite_time
index 40153218f5f..13ae0b66949 100755
--- 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";
 }
-- 
cgit v1.2.1