t/strict-die.t

   1 #!/usr/bin/perl
   2 use Test::More tests => 4;
   3
   4 require_ok 't::t1::Evil';
   5 require_ok 't::t1::Direct';
   6 require_ok 't::t1::Indirect';
   7 ok !eval { require t::t1::Unrelated }, 'Unrelated dies';