In tests, fix @INC before loading more stuff

diff --git a/t/io/perlio.t b/t/io/perlio.t
index d9ecc98..1d03583 100644 (file)
--- a/t/io/perlio.t
+++ b/t/io/perlio.t
@@ -1,8 +1,8 @@
 BEGIN {
        chdir 't' if -d 't';
-       require Config; import Config;
     require './test.pl';
     set_up_inc('../lib');
+       require Config; import Config;
        skip_all_without_perlio();
 }
 

diff --git a/t/io/pipe.t b/t/io/pipe.t
index bdf743c..af8838c 100644 (file)
--- a/t/io/pipe.t
+++ b/t/io/pipe.t
@@ -2,9 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require Config; import Config;
     require './test.pl';
     set_up_inc('../lib');
+    require Config; import Config;
 }
 if (!$Config{'d_fork'}) {
     skip_all("fork required to pipe");

diff --git a/t/io/socketpair.t b/t/io/socketpair.t
index a80e411..9730d6b 100644 (file)
--- a/t/io/socketpair.t
+++ b/t/io/socketpair.t
@@ -2,9 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require Config; import Config;
     require './test.pl';
     set_up_inc('../lib');
+    require Config; import Config;
     skip_all_if_miniperl();
     for my $needed (qw(d_socket)) {
        if ($Config{$needed} ne 'define') {

diff --git a/t/io/utf8.t b/t/io/utf8.t
index 0bc8a5c..2ea7429 100644 (file)
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -2,8 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require './test.pl'; require './charset_tools.pl';
+    require './test.pl';
     set_up_inc('../lib');
+       require './charset_tools.pl';
 }
 skip_all_without_perlio();
 

diff --git a/t/op/coreamp.t b/t/op/coreamp.t
index 3320ff7..b57609b 100644 (file)
--- a/t/op/coreamp.t
+++ b/t/op/coreamp.t
@@ -9,9 +9,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require "./test.pl"; require './charset_tools.pl';
-    $^P |= 0x100;
+    require "./test.pl";
     set_up_inc( qw(. ../lib ../dist/if) );
+       require './charset_tools.pl';
+    $^P |= 0x100;      # Provide informative "file" names for evals
 }
 
 no warnings 'experimental::smartmatch';

diff --git a/t/op/goto.t b/t/op/goto.t
index db08e1e..80c99d2 100644 (file)
--- a/t/op/goto.t
+++ b/t/op/goto.t
@@ -4,8 +4,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require "./test.pl"; require './charset_tools.pl';
+    require "./test.pl";
     set_up_inc( qw(. ../lib) );
+       require './charset_tools.pl';
 }
 
 use warnings;

diff --git a/t/op/split.t b/t/op/split.t
index 7377616..64b11d4 100644 (file)
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -3,8 +3,8 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './charset_tools.pl';
     set_up_inc('../lib');
+    require './charset_tools.pl';
 }
 
 plan tests => 178;

diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t
index 7cb5d9b..bbc12cc 100644 (file)
--- a/t/op/sprintf2.t
+++ b/t/op/sprintf2.t
@@ -5,8 +5,8 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './charset_tools.pl';
     set_up_inc('../lib');
+    require './charset_tools.pl';
 }   
 
 # We'll run 12 extra tests (see below) if $Q is false.

diff --git a/t/op/warn.t b/t/op/warn.t
index 0bf6967..7391105 100644 (file)
--- a/t/op/warn.t
+++ b/t/op/warn.t
@@ -3,8 +3,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require './test.pl'; require './charset_tools.pl';
+    require './test.pl';
     set_up_inc('../lib');
+    require './charset_tools.pl';
 }
 
 plan 33;
@@ -26,7 +27,7 @@ ok @warnings==1 && $warnings[0] eq "foobar\n";
 @warnings = ();
 $@ = "";
 warn "foo";
-ok @warnings==1 && $warnings[0] eq "foo at warn.t line 28.\n";
+ok @warnings==1 && $warnings[0] eq "foo at warn.t line 29.\n";
 
 @warnings = ();
 $@ = "";
@@ -37,13 +38,13 @@ ok @warnings==1 && ref($warnings[0]) eq "ARRAY" && $warnings[0] == $wa;
 $@ = "";
 warn "";
 ok @warnings==1 &&
-    $warnings[0] eq "Warning: something's wrong at warn.t line 38.\n";
+    $warnings[0] eq "Warning: something's wrong at warn.t line 39.\n";
 
 @warnings = ();
 $@ = "";
 warn;
 ok @warnings==1 &&
-    $warnings[0] eq "Warning: something's wrong at warn.t line 44.\n";
+    $warnings[0] eq "Warning: something's wrong at warn.t line 45.\n";
 
 @warnings = ();
 $@ = "ERR\n";
@@ -58,7 +59,7 @@ ok @warnings==1 && $warnings[0] eq "foobar\n";
 @warnings = ();
 $@ = "ERR\n";
 warn "foo";
-ok @warnings==1 && $warnings[0] eq "foo at warn.t line 60.\n";
+ok @warnings==1 && $warnings[0] eq "foo at warn.t line 61.\n";
 
 @warnings = ();
 $@ = "ERR\n";
@@ -69,13 +70,13 @@ ok @warnings==1 && ref($warnings[0]) eq "ARRAY" && $warnings[0] == $wa;
 $@ = "ERR\n";
 warn "";
 ok @warnings==1 &&
-    $warnings[0] eq "ERR\n\t...caught at warn.t line 70.\n";
+    $warnings[0] eq "ERR\n\t...caught at warn.t line 71.\n";
 
 @warnings = ();
 $@ = "ERR\n";
 warn;
 ok @warnings==1 &&
-    $warnings[0] eq "ERR\n\t...caught at warn.t line 76.\n";
+    $warnings[0] eq "ERR\n\t...caught at warn.t line 77.\n";
 
 @warnings = ();
 $@ = $ea;
@@ -90,7 +91,7 @@ ok @warnings==1 && $warnings[0] eq "foobar\n";
 @warnings = ();
 $@ = $ea;
 warn "foo";
-ok @warnings==1 && $warnings[0] eq "foo at warn.t line 92.\n";
+ok @warnings==1 && $warnings[0] eq "foo at warn.t line 93.\n";
 
 @warnings = ();
 $@ = $ea;

diff --git a/t/re/bigfuzzy_not_utf8.t b/t/re/bigfuzzy_not_utf8.t
index 2daace5..bef761b 100644 (file)
Binary files a/t/re/bigfuzzy_not_utf8.t and b/t/re/bigfuzzy_not_utf8.t differ

diff --git a/t/re/charset.t b/t/re/charset.t
index dc156c0..8496177 100644 (file)
--- a/t/re/charset.t
+++ b/t/re/charset.t
@@ -3,8 +3,8 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './loc_tools.pl';
     set_up_inc('../lib', '../dist/if');
+    require './loc_tools.pl';
 }
 
 use strict;

diff --git a/t/re/fold_grind_8.t b/t/re/fold_grind_8.t
index b614c10..1030fc7 100644 (file)
--- a/t/re/fold_grind_8.t
+++ b/t/re/fold_grind_8.t
@@ -9,8 +9,8 @@ no warnings 'once';
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './loc_tools.pl';
     set_up_inc('../lib');
+    require './loc_tools.pl';
 }
 
 skip_all "No locales" unless locales_enabled('LC_CTYPE');

diff --git a/t/re/fold_grind_T.t b/t/re/fold_grind_T.t
index 8b026cd..df58723 100644 (file)
--- a/t/re/fold_grind_T.t
+++ b/t/re/fold_grind_T.t
@@ -9,8 +9,8 @@ no warnings 'once';
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './loc_tools.pl';
     set_up_inc('../lib');
+    require './loc_tools.pl';
 }
 
 skip_all "No locales" unless locales_enabled('LC_CTYPE');

diff --git a/t/re/fold_grind_a.t b/t/re/fold_grind_a.t
index 175e9ca..db112fb 100644 (file)
--- a/t/re/fold_grind_a.t
+++ b/t/re/fold_grind_a.t
@@ -7,8 +7,8 @@ no warnings 'once';
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './loc_tools.pl';
     set_up_inc('../lib');
+    require './loc_tools.pl';
 }
 
 $::TEST_CHUNK = 'a';

diff --git a/t/re/fold_grind_aa.t b/t/re/fold_grind_aa.t
index 40df706..173fd5b 100644 (file)
--- a/t/re/fold_grind_aa.t
+++ b/t/re/fold_grind_aa.t
@@ -9,8 +9,8 @@ no warnings 'once';
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './loc_tools.pl';
     set_up_inc('../lib');
+    require './loc_tools.pl';
 }
 
 $::TEST_CHUNK = 'aa';

diff --git a/t/re/fold_grind_d.t b/t/re/fold_grind_d.t
index 14897fb..f367745 100644 (file)
--- a/t/re/fold_grind_d.t
+++ b/t/re/fold_grind_d.t
@@ -7,8 +7,8 @@ no warnings 'once';
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './loc_tools.pl';
     set_up_inc('../lib');
+    require './loc_tools.pl';
 }
 
 $::TEST_CHUNK = 'd';

diff --git a/t/re/fold_grind_l.t b/t/re/fold_grind_l.t
index c5cfc7b..59b46b8 100644 (file)
--- a/t/re/fold_grind_l.t
+++ b/t/re/fold_grind_l.t
@@ -7,8 +7,8 @@ no warnings 'once';
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './loc_tools.pl';
     set_up_inc('../lib');
+    require './loc_tools.pl';
 }
 
 skip_all "No locales" unless locales_enabled('LC_CTYPE');

diff --git a/t/re/fold_grind_u.t b/t/re/fold_grind_u.t
index fb2013e..b2f9bf6 100644 (file)
--- a/t/re/fold_grind_u.t
+++ b/t/re/fold_grind_u.t
@@ -7,8 +7,8 @@ no warnings 'once';
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './loc_tools.pl';
     set_up_inc('../lib');
+    require './loc_tools.pl';
 }
 
 $::TEST_CHUNK = 'u';

diff --git a/t/re/pat.t b/t/re/pat.t
index b01c7d1..a0086cf 100644 (file)
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -16,10 +16,11 @@ $| = 1;
 
 BEGIN {
     chdir 't' if -d 't';
+    require './test.pl';
+    set_up_inc('../lib', '.', '../ext/re');
     require Config; import Config;
-    require './test.pl'; require './charset_tools.pl';
+    require './charset_tools.pl';
     require './loc_tools.pl';
-    set_up_inc('../lib', '.', '../ext/re');
 }
 
 skip_all_without_unicode_tables();

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index b5c7f1c..b8de776 100644 (file)
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -7,8 +7,8 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    require './charset_tools.pl';
     set_up_inc(qw '../lib .');
+    require './charset_tools.pl';
     skip_all_if_miniperl("miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-");
 }
 

diff --git a/t/re/pat_re_eval.t b/t/re/pat_re_eval.t
index 75c6ed6..70b807b 100644 (file)
--- a/t/re/pat_re_eval.t
+++ b/t/re/pat_re_eval.t
@@ -17,8 +17,9 @@ $| = 1;
 
 BEGIN {
     chdir 't' if -d 't';
-    require './test.pl'; require './charset_tools.pl';
+    require './test.pl';
     set_up_inc('../lib');
+       require './charset_tools.pl';
 }
 
 our @global;

diff --git a/t/re/regex_sets.t b/t/re/regex_sets.t
index ee79059..c7d8736 100644 (file)
--- a/t/re/regex_sets.t
+++ b/t/re/regex_sets.t
@@ -8,9 +8,9 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
+    set_up_inc( '../lib','.','../ext/re' );
     require './charset_tools.pl';
     require './loc_tools.pl';
-    set_up_inc( '../lib','.','../ext/re' );
 }
 
 skip_all_without_unicode_tables();

diff --git a/t/re/speed.t b/t/re/speed.t
index e2d01ab..26f5ae6 100644 (file)
--- a/t/re/speed.t
+++ b/t/re/speed.t
@@ -16,9 +16,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require Config; import Config;
     require './test.pl';
     set_up_inc('../lib','.','../ext/re');
+    require Config; import Config;
 }
 
 skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader;

diff --git a/t/uni/method.t b/t/uni/method.t
index cc710ef..7fb7f18 100644 (file)
--- a/t/uni/method.t
+++ b/t/uni/method.t
@@ -6,8 +6,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require "./test.pl"; require './charset_tools.pl';
+    require "./test.pl";
     set_up_inc( qw(. ../lib ../cpan/parent/lib) );
+       require './charset_tools.pl';
 }
 
 use strict;

diff --git a/t/uni/overload.t b/t/uni/overload.t
index 1614845..3004614 100644 (file)
--- a/t/uni/overload.t
+++ b/t/uni/overload.t
@@ -2,11 +2,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require Config; import Config;
     require './test.pl';
+    set_up_inc( '../lib' );
+    require Config; import Config;
     require './charset_tools.pl';
     require './loc_tools.pl';
-    set_up_inc( '../lib' );
 }
 
 plan(tests => 193);