From: Marius Gavrilescu <marius@ieval.ro>
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';