mirror of
https://github.com/git/git.git
synced 2024-11-14 13:13:01 +01:00
342e9ef2d9
This introduces a performance testing framework under t/perf/. It tries to be as close to the test-lib.sh infrastructure as possible, and thus should be easy to get used to for git developers. The following points were considered for the implementation: 1. You usually want to compare arbitrary revisions/build trees against each other. They may not have the performance test under consideration, or even the perf-lib.sh infrastructure. To cope with this, the 'run' script lets you specify arbitrary build dirs and revisions. It even automatically builds the revisions if it doesn't have them at hand yet. 2. Usually you would not want to run all tests. It would take too long anyway. The 'run' script lets you specify which tests to run; or you can also do it manually. There is a Makefile for discoverability and 'make clean', but it is not meant for real-world use. 3. Creating test repos from scratch in every test is extremely time-consuming, and shipping or downloading such large/weird repos is out of the question. We leave this decision to the user. Two different sizes of test repos can be configured, and the scripts just copy one or more of those (using hardlinks for the object store). By default it tries to use the build tree's git.git repository. This is fairly fast and versatile. Using a copy instead of a clone preserves many properties that the user may want to test for, such as lots of loose objects, unpacked refs, etc. Signed-off-by: Thomas Rast <trast@student.ethz.ch> Signed-off-by: Junio C Hamano <gitster@pobox.com>
21 lines
348 B
Perl
Executable file
21 lines
348 B
Perl
Executable file
#!/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;
|