Merge git://repo.or.cz/git-gui
[git] / t / harness
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);