summaryrefslogtreecommitdiff
path: root/source4/scripting/devel/show_test_time
diff options
context:
space:
mode:
Diffstat (limited to 'source4/scripting/devel/show_test_time')
-rwxr-xr-xsource4/scripting/devel/show_test_time19
1 files changed, 0 insertions, 19 deletions
diff --git a/source4/scripting/devel/show_test_time b/source4/scripting/devel/show_test_time
deleted file mode 100755
index d9a18f034e..0000000000
--- a/source4/scripting/devel/show_test_time
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/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";
-}