Test preamble: explicit @INC, instead of unshift.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 8 Oct 2014 21:12:16 +0000 (23:12 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 8 Oct 2014 21:21:05 +0000 (23:21 +0200)
Exception: t/run/switchI.t, needs the unshift way.

13 files changed:
t/bigmem/index.t
t/bigmem/pos.t
t/bigmem/read.t
t/bigmem/regexp.t
t/bigmem/vec.t
t/lib/mypragma.t
t/op/hexfp.t
t/op/inc.t
t/porting/pod_rules.t
t/porting/podcheck.t
t/porting/ss_dup.t
t/re/pat_advanced.t
t/run/switchI.t

index 48c2242..b4fb9e2 100644 (file)
@@ -1,7 +1,7 @@
 #!perl
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, "../lib";
+    @INC = "../lib";
 }
 
 use strict;
index 31cf756..e10d225 100644 (file)
@@ -1,7 +1,7 @@
 #!perl
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, "../lib";
+    @INC = "../lib";
     require './test.pl';
 }
 
index 773df3f..2c1ff63 100644 (file)
@@ -1,7 +1,7 @@
 #!perl
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, "../lib";
+    @INC = "../lib";
 }
 
 use strict;
index c2a04b1..2c927c4 100644 (file)
@@ -1,7 +1,7 @@
 #!perl
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, "../lib";
+    @INC = "../lib";
     require './test.pl';
 }
 
index 12d3fed..5806aef 100644 (file)
@@ -1,7 +1,7 @@
 #!perl
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, "../lib";
+    @INC = "../lib";
 }
 
 use strict;
index 2bc3f53..2e7b0ab 100644 (file)
@@ -4,9 +4,9 @@ use strict;
 use warnings;
 
 BEGIN {
-    unshift @INC, 'lib';
     chdir 't' if -d 't';
     require './test.pl';
+    @INC = '../lib';
     plan(tests => 14);
 }
 
index d055380..f546835 100644 (file)
@@ -6,7 +6,7 @@ use Config;
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
     require './test.pl';
 }
 
index b494af5..d56f345 100644 (file)
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
     require './test.pl';
 }
 
index c3cd8f8..780fa38 100644 (file)
@@ -20,8 +20,8 @@
 # file will probably pass as well.
 
 BEGIN {
-    chdir '..' unless -d 't';
-    unshift @INC, 'lib';
+    chdir 't' if -d '../t';
+    unshift @INC, '../lib';
 }
 
 use strict;
index 49015bc..e3d9be9 100644 (file)
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't';
-    unshift @INC, "../lib";
+    @INC = "../lib";
 }
 
 use strict;
index caa0086..7716112 100644 (file)
@@ -3,7 +3,7 @@
 @TODO = qw [ SAVEt_SAVESWITCHSTACK ];
 @TODO{@TODO} = ();
 
-BEGIN { chdir 't'; unshift @INC, "../lib"; require './test.pl' }
+BEGIN { chdir 't'; @INC = "../lib"; require './test.pl' }
 use Config;
 
 if ( $Config{usecrosscompile} ) {
index fb30a9c..6fd5f24 100644 (file)
@@ -16,8 +16,9 @@ $| = 1;
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib','.');
-    require './test.pl'; require './charset_tools.pl';
+    @INC = '../lib';
+    require './test.pl';
+    require './charset_tools.pl';
     skip_all_if_miniperl("miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-");
 }
 
@@ -984,9 +985,6 @@ sub run_tests {
     }
 
     {
-    BEGIN {
-        unshift @INC, 'lib';
-    }
         use Cname;
 
         ok 'fooB'  =~ /\N{foo}[\N{B}\N{b}]/, "Passthrough charname";
index 7fb222b..b8f80e1 100644 (file)
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    unshift @INC, '../lib';     # Do NOT make this @INC = '../lib';
     require './test.pl';       # for which_perl() etc
     plan(4);
 }