t/harness


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/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);