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 } );