diff options
Diffstat (limited to 'source4/scripting/devel')
-rwxr-xr-x | source4/scripting/devel/show_test_time | 19 |
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"; -} |