xt/author/test-my-dependents.t

   1 use strict;
   2 use warnings;
   3
   4 use Cwd qw( abs_path );
   5 use Test::More;
   6
   7 plan skip_all => 'This test will not run unless you set MOOSE_TEST_MD to a true value'
   8     unless $ENV{MOOSE_TEST_MD};
   9
  10 eval 'use Test::DependentModules qw( test_all_dependents );';
  11 plan skip_all => 'This test requires Test::DependentModules'
  12     if $@;
  13
  14 $ENV{PERL_TEST_DM_LOG_DIR} = abs_path('.');
  15
  16 my $exclude = qr/^Acme-/x;
  17
  18 test_all_dependents( 'Moose', { exclude => $exclude } );