t/aggregate.t

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