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); |