tevent_poll: add poll_event_loop_wait()
[Samba/gebeck_regimport.git] / script / show_test_time
blobd9a18f034eabd6be688769f6edb07afaf687280a
1 #!/usr/bin/env perl
3 use strict;
4 my %h;
5 open(FH, "subunit-ls --times --no-passthrough|") || die "pb with subunit-ls";
6 while(<FH>)
8 chomp();
9 my @l = split(/ /);
10 my $val = @l[scalar(@l)-1];
11 $h{join(' ',@l)} = $val;
14 my @sorted = sort { $h{$b}<=>$h{$a} } keys(%h);
15 use Data::Dumper;
16 foreach my $l (@sorted)
18 print "$l\n";