diff options
| -rwxr-xr-x | script/show_testsuite_time | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/script/show_testsuite_time b/script/show_testsuite_time new file mode 100755 index 0000000000..40153218f5 --- /dev/null +++ b/script/show_testsuite_time @@ -0,0 +1,40 @@ +#!/usr/bin/env perl +use Time::Local ('timegm'); +my $in = STDIN; +use strict; + +my $intest=0; +my $name; +my $start=0; +my $end=0; +my %hash; +my $fh; +if ($#ARGV >= 0) { + open($fh, "<", $ARGV[0]) || die "can't open ".$ARGV[0]; +} else { + $fh = $in; +} +while(<$fh>) +{ + if (m/^testsuite: (.*)/) { + $intest = 1; + $name = $1; + } + if (m/testsuite-\w+:/) { + $hash{"$name -> ".($end - $start)} = $end - $start; + $intest = 0; + $start = 0; + } + if (m/^time: (\d\d\d\d)-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)/ && $intest) { + my $ts=timegm($6,$5,$4,$3,$2 - 1,$1 - 1900); + if ($start == 0) { + $start = $ts; + } else { + $end = $ts; + } + } +} +my @sorted = sort { $hash{$a}<=>$hash{$b} } keys(%hash); +for my $l (@sorted) { + print $l."\n"; +} |