From 498743bd46b3ab9b2c23140495a1cfeb25f11b8f Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Sat, 27 Nov 2010 16:31:53 +0100 Subject: show_test_time: Move to root scripting directory as it's useful for s3 and s4. Autobuild-User: Jelmer Vernooij Autobuild-Date: Sat Nov 27 17:17:29 CET 2010 on sn-devel-104 --- script/show_test_time | 19 +++++++++++++++++++ source4/scripting/devel/show_test_time | 19 ------------------- 2 files changed, 19 insertions(+), 19 deletions(-) create mode 100755 script/show_test_time delete mode 100755 source4/scripting/devel/show_test_time diff --git a/script/show_test_time b/script/show_test_time new file mode 100755 index 0000000000..d9a18f034e --- /dev/null +++ b/script/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() +{ + 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"; +} 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() -{ - 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"; -} -- cgit