X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2Fconfused.t;fp=t%2Fconfused.t;h=8371dd818376f8bafc9b34566abd3209d5aa780d;hb=8bfea593baaf587ff63134fadb9166c995acef1f;hp=0000000000000000000000000000000000000000;hpb=177e0245e4ce9fd721aa0cd9314c2c1894bd1125;p=acme-evil.git

diff --git a/t/confused.t b/t/confused.t
new file mode 100644
index 0000000..8371dd8
--- /dev/null
+++ b/t/confused.t
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+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';