1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/lib";
use File::Spec::Functions 'catfile', 'updir';
BEGIN {
unless (-e catfile $FindBin::Bin, updir, '.aggregating') {
require Test::More;
Test::More::plan(skip_all => 'No test aggregation requested');
}
}
BEGIN {
unless (eval { require Test::Aggregate; Test::Aggregate->VERSION('0.364'); 1 }) {
require Test::More;
Test::More::plan(skip_all => 'Test::Aggregate 0.364 required for test aggregation');
}
}
my $tests = Test::Aggregate->new({
(@ARGV ? (tests => \@ARGV) : (dirs => 't/aggregate')),
verbose => 0,
set_filenames => 1,
findbin => 1,
});
$tests->run;
|
