From: Marius Gavrilescu Date: Thu, 13 Apr 2017 11:35:56 +0000 (+0300) Subject: Fix tests when @INC has no '.' (RT #121030) X-Git-Tag: 0.003001~1 X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=3c19af3863c240c791ee82ceb0bcb8903a480510;p=acme-evil.git Fix tests when @INC has no '.' (RT #121030) --- diff --git a/t/confused.t b/t/confused.t index 8371dd8..b8cd7ec 100644 --- a/t/confused.t +++ b/t/confused.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 6; ok !eval {require t::t4::ConfusedStrict1 }, 'Confused strict 1 dies'; diff --git a/t/disable-die.t b/t/disable-die.t index 9b81c92..d7013dd 100644 --- a/t/disable-die.t +++ b/t/disable-die.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 1; ok !eval { require t::t2::Dies }, 'Unrelated dies'; diff --git a/t/disable-safe.t b/t/disable-safe.t index 8e1473d..e7b5dae 100644 --- a/t/disable-safe.t +++ b/t/disable-safe.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 1; require_ok 't::t2::Survives'; diff --git a/t/intermediate-direct.t b/t/intermediate-direct.t index 6b48cce..25cb4d5 100644 --- a/t/intermediate-direct.t +++ b/t/intermediate-direct.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 1; ok !eval {require t::t3::IntermediateDirect }, 'Direct intermediate dies'; diff --git a/t/intermediate-indirect.t b/t/intermediate-indirect.t index 51ecb7a..6df5674 100644 --- a/t/intermediate-indirect.t +++ b/t/intermediate-indirect.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 1; ok !eval {require t::t3::IntermediateIndirect }, 'Indirect intermediate dies'; diff --git a/t/intermediate-unrelated.t b/t/intermediate-unrelated.t index c731050..20194a6 100644 --- a/t/intermediate-unrelated.t +++ b/t/intermediate-unrelated.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 2; require_ok 't::t3::Evil'; diff --git a/t/lax-direct.t b/t/lax-direct.t index 89db622..89de1fc 100644 --- a/t/lax-direct.t +++ b/t/lax-direct.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 1; ok !eval {require t::t3::LaxDirect }, 'Direct lax dies'; diff --git a/t/lax-indirect.t b/t/lax-indirect.t index ed63156..b0e9492 100644 --- a/t/lax-indirect.t +++ b/t/lax-indirect.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 1; require_ok 't::t3::LaxIndirect'; diff --git a/t/lax-unrelated.t b/t/lax-unrelated.t index 3f0d705..30cefe4 100644 --- a/t/lax-unrelated.t +++ b/t/lax-unrelated.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 2; require_ok 't::t3::Evil'; diff --git a/t/strict-die.t b/t/strict-die.t index a43b699..6d97488 100644 --- a/t/strict-die.t +++ b/t/strict-die.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 4; require_ok 't::t1::Evil'; diff --git a/t/strict-safe.t b/t/strict-safe.t index 4c3b826..ce4335a 100644 --- a/t/strict-safe.t +++ b/t/strict-safe.t @@ -1,4 +1,5 @@ #!/usr/bin/perl +use lib '.'; use Test::More tests => 1; require_ok 't::t1::Unrelated';