t/confused.t

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