File Coverage

File:/home/guillem/src/debian/dpkg/build-aux/test-runner
Coverage:87.1%

linestmtbrancondsubpodtimecode
1#!/usr/bin/perl
2
3
1
1
1
1
15101
1
20
use strict;
4
1
1
1
1
3
0
25
use warnings;
5
6
1
1
1
1
233
11056
8405
use TAP::Harness;
7
8
1
53933
my $srcroot = $ENV{abs_top_srcdir};
9
1
2
my $binroot = $ENV{abs_top_builddir};
10
11# Setup the environment
12
1
12
$ENV{LC_ALL} = 'C';
13
1
4
$ENV{DPKG_COLORS} = 'never';
14
1
6
$ENV{PATH} = "$binroot/src:$binroot/scripts:$binroot/utils:$ENV{PATH}";
15
16my $harness = TAP::Harness->new({
17    exec => sub {
18
47
47
213673449
        my (undef, $test) = @_;
19
47
50
33
314
        return [ $test ] if $test !~ m/\.t$/ and -x $test;
20        return
21
47
54
    },
22    lib => [
23        "$srcroot/scripts",
24        "$srcroot/dselect/methods"
25    ],
26    color => 1,
27    verbosity => $ENV{TEST_VERBOSE},
28    jobs => $ENV{TEST_PARALLEL},
29
1
23
    failures => 1,
30});
31
32
1
17581
my $aggregate = $harness->runtests(@ARGV);
33
1
50
17070876
die "FAIL: test suite has errors\n" if $aggregate->has_errors;
341;