build-aux/test-runner

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use TAP::Harness;
   7
   8 my $srcroot = $ENV{abs_top_srcdir};
   9 my $binroot = $ENV{abs_top_builddir};
  10
  11 # Setup the environment
  12 $ENV{LC_ALL} = 'C';
  13 $ENV{DPKG_COLORS} = 'never';
  14 $ENV{PATH} = "$binroot/src:$binroot/scripts:$binroot/utils:$ENV{PATH}";
  15
  16 my %options;
  17 # XXX: We need force the file formatter to workaround verbose + parallel
  18 # not working correctly, as the console formatter eats the test output,
  19 # see <https://github.com/Perl-Toolchain-Gang/Test-Harness/issues/105>.
  20 if ($ENV{TEST_VERBOSE} && $ENV{TEST_PARALLEL} > 1) {
  21     $options{formatter_class} = 'TAP::Formatter::File';
  22 }
  23
  24 my $harness = TAP::Harness->new({
  25     exec => sub {
  26         my (undef, $test) = @_;
  27         return [ $test ] if $test !~ m/\.t$/ and -x $test;
  28         return
  29     },
  30     lib => [
  31         "$srcroot/scripts",
  32         "$srcroot/dselect/methods"
  33     ],
  34     color => 1,
  35     verbosity => $ENV{TEST_VERBOSE},
  36     jobs => $ENV{TEST_PARALLEL},
  37     failures => 1,
  38     %options,
  39 });
  40
  41 my $aggregate = $harness->runtests(@ARGV);
  42 die "FAIL: test suite has errors\n" if $aggregate->has_errors;