| Ævar Arnfjörð Bjarmason | b6b84d1 | 2010-08-08 14:49:24 +0000 | [diff] [blame] | 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); |
