This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In tests, fix @INC before loading more stuff
authorHugo van der Sanden <hv@crypt.org>
Sat, 3 Oct 2020 17:32:22 +0000 (18:32 +0100)
committerKarl Williamson <khw@cpan.org>
Sat, 3 Oct 2020 20:45:31 +0000 (14:45 -0600)
25 files changed:
t/io/perlio.t
t/io/pipe.t
t/io/socketpair.t
t/io/utf8.t
t/op/coreamp.t
t/op/goto.t
t/op/split.t
t/op/sprintf2.t
t/op/warn.t
t/re/bigfuzzy_not_utf8.t
t/re/charset.t
t/re/fold_grind_8.t
t/re/fold_grind_T.t
t/re/fold_grind_a.t
t/re/fold_grind_aa.t
t/re/fold_grind_d.t
t/re/fold_grind_l.t
t/re/fold_grind_u.t
t/re/pat.t
t/re/pat_advanced.t
t/re/pat_re_eval.t
t/re/regex_sets.t
t/re/speed.t
t/uni/method.t
t/uni/overload.t

index d9ecc98..1d03583 100644 (file)
@@ -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();
 }
 
index bdf743c..af8838c 100644 (file)
@@ -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");
index a80e411..9730d6b 100644 (file)
@@ -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') {
index 0bc8a5c..2ea7429 100644 (file)
@@ -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();
 
index 3320ff7..b57609b 100644 (file)
@@ -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';
index db08e1e..80c99d2 100644 (file)
@@ -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;
index 7377616..64b11d4 100644 (file)
@@ -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;
index 7cb5d9b..bbc12cc 100644 (file)
@@ -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.
index 0bf6967..7391105 100644 (file)
@@ -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;
index 2daace5..bef761b 100644 (file)
Binary files a/t/re/bigfuzzy_not_utf8.t and b/t/re/bigfuzzy_not_utf8.t differ
index dc156c0..8496177 100644 (file)
@@ -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;
index b614c10..1030fc7 100644 (file)
@@ -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');
index 8b026cd..df58723 100644 (file)
@@ -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');
index 175e9ca..db112fb 100644 (file)
@@ -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';
index 40df706..173fd5b 100644 (file)
@@ -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';
index 14897fb..f367745 100644 (file)
@@ -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';
index c5cfc7b..59b46b8 100644 (file)
@@ -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');
index fb2013e..b2f9bf6 100644 (file)
@@ -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';
index b01c7d1..a0086cf 100644 (file)
@@ -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();
index b5c7f1c..b8de776 100644 (file)
@@ -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 %-");
 }
 
index 75c6ed6..70b807b 100644 (file)
@@ -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;
index ee79059..c7d8736 100644 (file)
@@ -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();
index e2d01ab..26f5ae6 100644 (file)
@@ -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;
index cc710ef..7fb7f18 100644 (file)
@@ -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;
index 1614845..3004614 100644 (file)
@@ -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);