t/crash.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3 use Test::More
   4   "$]" < 5.008004 ? ( skip_all => "can't test extra loading on perl < 5.8.4" )
   5                 : ( tests => 1 );
   6 use File::Spec;
   7
   8 my %extras = map { my $m = "$_.pm"; $m =~ s{::}{/}g; $m => 1 } qw(
   9   indirect
  10   multidimensional
  11   bareword::filehandles
  12 );
  13
  14 unshift @INC, sub {
  15   my $mod = $_[1];
  16   die "Can't locate $mod in \@INC\n"
  17     if $extras{$mod};
  18   return 0;
  19 };
  20
  21 my $err = do {
  22   local $ENV{PERL_STRICTURES_EXTRA} = 1;
  23   local *STDERR;
  24   open STDERR, '>', File::Spec->devnull;
  25   eval q{use strictures;};
  26   $@;
  27 };
  28
  29 is $err, '', 'can manage to survive with some modules missing!';