Acme-Evil

 view release on metacpan or  search on metacpan

t/confused.t  view on Meta::CPAN

#!/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';

t/disable-die.t  view on Meta::CPAN

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

ok !eval { require t::t2::Dies }, 'Unrelated dies';

t/disable-safe.t  view on Meta::CPAN

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

require_ok 't::t2::Survives';

t/intermediate-direct.t  view on Meta::CPAN

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

ok !eval {require t::t3::IntermediateDirect }, 'Direct intermediate dies';

t/intermediate-indirect.t  view on Meta::CPAN

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

ok !eval {require t::t3::IntermediateIndirect }, 'Indirect intermediate dies';

t/intermediate-unrelated.t  view on Meta::CPAN

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

require_ok 't::t3::Evil';
require_ok 't::t3::UnrelatedIntermediate';

t/lax-direct.t  view on Meta::CPAN

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

ok !eval {require t::t3::LaxDirect }, 'Direct lax dies';

t/lax-indirect.t  view on Meta::CPAN

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

require_ok 't::t3::LaxIndirect';

t/lax-unrelated.t  view on Meta::CPAN

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

require_ok 't::t3::Evil';
require_ok 't::t3::UnrelatedLax';

t/strict-die.t  view on Meta::CPAN

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

require_ok 't::t1::Evil';
require_ok 't::t1::Direct';
require_ok 't::t1::Indirect';
ok !eval { require t::t1::Unrelated }, 'Unrelated dies';

t/strict-safe.t  view on Meta::CPAN

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

require_ok 't::t1::Unrelated';