BEGIN {
unless ($ENV{AUTHOR_TESTING}) {
require Test::More;
Test::More::plan(skip_all => 'these tests are for testing by the author');
}
}
use strict;
use warnings;
use Cwd qw( abs_path );
use Test::More;
BEGIN {
plan skip_all =>
'Must set DATETIME_TEST_DEPS to true in order to run these tests'
unless $ENV{DATETIME_TEST_DEPS};
}
use Test::DependentModules qw( test_all_dependents );
$ENV{PERL_TEST_DM_LOG_DIR} = abs_path('.');
my $exclude = $ENV{DATETIME_TEST_DEPS} eq 'all'
? qr/(?:^App-)
|
^(?:
Archive-RPM
|
Video-Xine
)$
/x
: qr/^(?!DateTime-)/;
test_all_dependents( 'DateTime', { exclude => $exclude } );