[p5sagit/strictures.git] / t / crash.t

use strictures;

use Test::More tests => 1;

SKIP: {
  skip 'Have all the modules; can\'t check this', 1
    unless not eval {
      require indirect;
      require multidimensional;
      require bareword::filehandles;
      1;
    };

  pass('can manage to survive with some modules missing!');
}
Commit	Line	Data
32afac10	1	use strictures;
	2
	3	use Test::More tests => 1;
	4
	5	SKIP: {
	6	skip 'Have all the modules; can\'t check this', 1
	7	unless not eval {
	8	require indirect;
	9	require multidimensional;
	10	require bareword::filehandles;
	11	1;
	12	};
	13
	14	pass('can manage to survive with some modules missing!');
	15	}
	16