[acme-evil.git] / t / confused.t

#!/usr/bin/perl
use lib '.';
use Test::More tests => 6;

ok !eval {require t::t4::ConfusedStrict1 }, 'Confused strict 1 dies';
%evil::wants_strict = ();
ok !eval {require t::t4::ConfusedIntermediate1 }, 'Confused intermediate 1 dies';
ok !eval {require t::t4::ConfusedLax1 }, 'Confused lax 1 dies';
ok !eval {require t::t4::ConfusedStrict2 }, 'Confused strict 2 dies';
%evil::wants_strict = ();
ok !eval {require t::t4::ConfusedIntermediate2 }, 'Confused intermediate 2 dies';
ok !eval {require t::t4::ConfusedLax2 }, 'Confused lax 2 dies';
Commit	Line	Data
8bfea593	1	#!/usr/bin/perl
3c19af38	2	use lib '.';
8bfea593 MG	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';