Andrew's git - gitweb.git/blob

   1#!/usr/bin/perl
   2use strict;
   3use warnings;
   4use Getopt::Long ();
   5use TAP::Harness::Archive;
   6
   7Getopt::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
  14TAP::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);