kivitendo/t/test.pl @ ed7a0c4a
| 8317b7aa | Moritz Bunkus | #!/usr/bin/perl -X
|
||
use strict;
|
||||
use Data::Dumper;
|
||||
use File::Find ();
|
||||
use Test::Harness qw(runtests execute_tests);
|
||||
BEGIN {
|
||||
| 6fd52dd5 | Sven Schöling | $ENV{HARNESS_OPTIONS} = 'c';
|
||
| 8317b7aa | Moritz Bunkus | unshift @INC, 'modules/override';
|
||
push @INC, 'modules/fallback';
|
||||
}
|
||||
sub find_files_to_test {
|
||||
my @files;
|
||||
| 931c8a63 | Sven Schöling | File::Find::find(sub { push @files, $File::Find::name if (-f $_) && m/\.t$/ }, 't');
|
||
| 8317b7aa | Moritz Bunkus | return @files;
|
||
}
|
||||
my (@tests_to_run, @tests_to_run_first);
|
||||
if (@ARGV) {
|
||||
@tests_to_run = @ARGV;
|
||||
} else {
|
||||
@tests_to_run_first = qw(t/000setup_database.t);
|
||||
my %exclude = map { ($_ => 1) } @tests_to_run_first;
|
||||
@tests_to_run = grep { !$exclude{$_} } sort(find_files_to_test());
|
||||
}
|
||||
if (@tests_to_run_first) {
|
||||
my ($total, $failed) = execute_tests(tests => \@tests_to_run_first);
|
||||
exit(1) unless !$total->{bad} && (0 < $total->{max});
|
||||
}
|
||||
runtests(@tests_to_run);
|