diff options
author | Junio C Hamano <gitster@pobox.com> | 2012-02-23 13:29:56 -0800 |
---|---|---|
committer | Junio C Hamano <gitster@pobox.com> | 2012-02-23 13:29:56 -0800 |
commit | b12fb9abfbef0d43630ff5d4b521630d6032bae7 (patch) | |
tree | 27a35b9a716b411c887cbc996f26626c6483a3c2 /t/perf/min_time.perl | |
parent | Merge branch 'maint' (diff) | |
parent | Add a performance test for git-grep (diff) | |
download | tgif-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-x | t/perf/min_time.perl | 21 |
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; |