t/confused.t

   1 #!/usr/bin/perl
   2 use lib '.';
   3 use Test::More tests => 6;
   4
   5 ok !eval {require t::t4::ConfusedStrict1 }, 'Confused strict 1 dies';
   6 %evil::wants_strict = ();
   7 ok !eval {require t::t4::ConfusedIntermediate1 }, 'Confused intermediate 1 dies';
   8 ok !eval {require t::t4::ConfusedLax1 }, 'Confused lax 1 dies';
   9 ok !eval {require t::t4::ConfusedStrict2 }, 'Confused strict 2 dies';
  10 %evil::wants_strict = ();
  11 ok !eval {require t::t4::ConfusedIntermediate2 }, 'Confused intermediate 2 dies';
  12 ok !eval {require t::t4::ConfusedLax2 }, 'Confused lax 2 dies';