This script show the time of each test and tests are sorted by execution
time (from the slowest to the quickest)
Autobuild-User: Matthieu Patou <mat@samba.org>
Autobuild-Date: Tue Oct 26 20:42:11 UTC 2010 on sn-devel-104
--- /dev/null
+#!/usr/bin/env perl
+#
+use strict;
+my %h;
+open(FH, "subunit-ls --times --no-passthrough|") || die "pb with subunit-ls";
+while(<FH>)
+{
+ chomp();
+ my @l = split(/ /);
+ my $val = @l[scalar(@l)-1];
+ $h{join(' ',@l)} = $val;
+}
+
+my @sorted = sort { $h{$b}<=>$h{$a} } keys(%h);
+use Data::Dumper;
+foreach my $l (@sorted)
+{
+ print "$l\n";
+}