summaryrefslogtreecommitdiff
path: root/t/perf/min_time.perl
diff options
context:
space:
mode:
authorLibravatar Junio C Hamano <gitster@pobox.com>2012-02-23 13:29:56 -0800
committerLibravatar Junio C Hamano <gitster@pobox.com>2012-02-23 13:29:56 -0800
commitb12fb9abfbef0d43630ff5d4b521630d6032bae7 (patch)
tree27a35b9a716b411c887cbc996f26626c6483a3c2 /t/perf/min_time.perl
parentMerge branch 'maint' (diff)
parentAdd a performance test for git-grep (diff)
downloadtgif-b12fb9abfbef0d43630ff5d4b521630d6032bae7.tar.xz
Merge branch 'tr/perftest'
* tr/perftest: Add a performance test for git-grep Introduce a performance testing framework Move the user-facing test library to test-lib-functions.sh
Diffstat (limited to 't/perf/min_time.perl')
-rwxr-xr-xt/perf/min_time.perl21
1 files changed, 21 insertions, 0 deletions
diff --git a/t/perf/min_time.perl b/t/perf/min_time.perl
new file mode 100755
index 0000000000..c1a2717e07
--- /dev/null
+++ b/t/perf/min_time.perl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+my $minrt = 1e100;
+my $min;
+
+while (<>) {
+ # [h:]m:s.xx U.xx S.xx
+ /^(?:(\d+):)?(\d+):(\d+(?:\.\d+)?) (\d+(?:\.\d+)?) (\d+(?:\.\d+)?)$/
+ or die "bad input line: $_";
+ my $rt = ((defined $1 ? $1 : 0.0)*60+$2)*60+$3;
+ if ($rt < $minrt) {
+ $min = $_;
+ $minrt = $rt;
+ }
+}
+
+if (!defined $min) {
+ die "no input found";
+}
+
+print $min;