Fix tests when @INC has no '.' (RT #121030)

diff --git a/t/confused.t b/t/confused.t
index 8371dd818376f8bafc9b34566abd3209d5aa780d..b8cd7ecb7e277349bb45a5d9add8ff359eba5d97 100644 (file)
--- 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 9b81c92d5cc50a4ab97ffc71c4594ead799f765e..d7013dd9967c34dff7399103066a9a706da8def0 100644 (file)
--- 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 8e1473d24d8088b3517943966a2a502267788d8e..e7b5dae3eab14fd77140f4670fd3f02af8b9b75c 100644 (file)
--- 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 6b48cce42355ddd5e4f21dcfe2f4c26fa7a72919..25cb4d5543c51f3014dbdbc8fffa0ea2a9573428 100644 (file)
--- 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 51ecb7a3dc30cd3d99c25f476752dc1f4e444462..6df5674f616eeb364c22a0330526e46323d750f4 100644 (file)
--- 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 c7310503cd6df63febfa8e9be3093d8897d99634..20194a6c7edacb810c98c154ade8d89487416f45 100644 (file)
--- 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 89db62248d75998319d413c03feedbd2197e094a..89de1fc4acbcaaa7704e205177dee426c8fa3cd7 100644 (file)
--- 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 ed631567d614d83821b70169905517b497dd1ce5..b0e9492148881e5501b727a93678c2a504116163 100644 (file)
--- 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 3f0d7059ff2c354b1c17f79820d8b5814d0483cc..30cefe4d210df4662637b69a2eb7d1d07d19c489 100644 (file)
--- 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 a43b6990e50692178d58b51ff5df515466c58d7f..6d97488c704c1785e42390527939425dd3d3f108 100644 (file)
--- 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 4c3b826dd7a7e240e92cda1f3eb1e3da479754d1..ce4335ac128297442f2829aadba9565eddc168b2 100644 (file)
--- 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';