summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthieu Patou <mat@matws.net>2010-10-22 11:56:40 +0400
committerMatthieu Patou <mat@samba.org>2010-10-26 20:42:11 +0000
commitd8e246cf8a4569baaa49359ceb3e21c7aa4af1f6 (patch)
tree91ba6901ce8f727b4efd667f38d301e4d886e054
parent62eb450bc24dd1a79074659e91fe87394f780cf8 (diff)
downloadsamba-d8e246cf8a4569baaa49359ceb3e21c7aa4af1f6.tar.gz
samba-d8e246cf8a4569baaa49359ceb3e21c7aa4af1f6.tar.bz2
samba-d8e246cf8a4569baaa49359ceb3e21c7aa4af1f6.zip
Add a script for formating test result of st/subunit
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
-rwxr-xr-xsource4/scripting/devel/show_test_time19
1 files changed, 19 insertions, 0 deletions
diff --git a/source4/scripting/devel/show_test_time b/source4/scripting/devel/show_test_time
new file mode 100755
index 0000000000..d9a18f034e
--- /dev/null
+++ b/source4/scripting/devel/show_test_time
@@ -0,0 +1,19 @@
+#!/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";
+}