[thirdparty/git.git] / t / harness

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long ();
use TAP::Harness::Archive;

Getopt::Long::Parser->new(
	config => [ qw/ pass_through / ],
)->getoptions(
	'jobs:1'    => \(my $jobs = $ENV{TEST_JOBS}),
	'archive=s' => \my $archive,
) or die "$0: Couldn't getoptions()";

TAP::Harness::Archive->new({
	jobs             => $jobs,
	archive          => $archive,
	($ENV{GIT_TEST_OPTS}
	 ? (test_args    => [ split /\s+/, $ENV{GIT_TEST_OPTS} ])
	 : ()),
	extra_properties => {},
})->runtests(@ARGV);
Commit	Line	Data
b6b84d1b ÆAB	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4	use Getopt::Long ();
	5	use TAP::Harness::Archive;
	6
	7	Getopt::Long::Parser->new(
	8	config => [ qw/ pass_through / ],
	9	)->getoptions(
	10	'jobs:1' => \(my $jobs = $ENV{TEST_JOBS}),
	11	'archive=s' => \my $archive,
	12	) or die "$0: Couldn't getoptions()";
	13
	14	TAP::Harness::Archive->new({
	15	jobs => $jobs,
	16	archive => $archive,
	17	($ENV{GIT_TEST_OPTS}
	18	? (test_args => [ split /\s+/, $ENV{GIT_TEST_OPTS} ])
	19	: ()),
	20	extra_properties => {},
	21	})->runtests(@ARGV);