]>
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'; |