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