test/src/testall.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use TAP::Harness;
   5 my $harness = TAP::Harness->new({
   6         timer => 1,
   7         color => 1,
   8         exec => sub {
   9                 my ($harness, $test_file) = @_;
  10                 # Let Perl tests run.
  11                 return undef if $test_file =~ /[.].pl$/;
  12                 if (-x $test_file) {
  13                         return [ $test_file ];
  14                 }
  15                 die "Unknown test file type - $test_file\n";
  16         },
  17 });
  18 my $aggregator = $harness->runtests(@ARGV);
  19 exit($aggregator->exit);