Use set_up_inc for several unit tests
authorNicolas R <atoomic@cpan.org>
Thu, 18 Aug 2016 01:14:51 +0000 (11:14 +1000)
committerTony Cook <tony@develop-help.com>
Thu, 18 Aug 2016 01:14:57 +0000 (11:14 +1000)
Use set_up_inc when require.pl is loaded
move plan outside of BEGIN block
when no tests are run at BEGIN time.

Using set_up_inc allow to run these tests under minitest
but also compile them using B::C.

This also has the advantage to use a single
control point for @INC setup.

Note: some tests cannot use 'require test.pl',
unshfit is then used for them.

240 files changed:
t/io/argv.t
t/io/binmode.t
t/io/bom.t
t/io/closepid.t
t/io/crlf.t
t/io/data.t
t/io/defout.t
t/io/dup.t
t/io/eintr.t
t/io/eintr_print.t
t/io/errnosig.t
t/io/fflush.t
t/io/fs.t
t/io/iofile.t
t/io/layers.t
t/io/nargv.t
t/io/open.t
t/io/openpid.t
t/io/perlio.t
t/io/perlio_fail.t
t/io/perlio_leaks.t
t/io/perlio_open.t
t/io/pipe.t
t/io/print.t
t/io/pvbm.t
t/io/read.t
t/io/say.t
t/io/sem.t
t/io/shm.t
t/io/socket.t
t/io/tell.t
t/io/through.t
t/io/utf8.t
t/mro/basic.t
t/mro/inconsistent_c3.t
t/mro/inconsistent_c3_utf8.t
t/mro/isa_aliases.t
t/mro/isa_aliases_utf8.t
t/mro/isa_c3.t
t/mro/isa_c3_utf8.t
t/mro/isa_dfs.t
t/mro/isa_dfs_utf8.t
t/mro/isarev.t
t/mro/isarev_utf8.t
t/mro/method_caching.t
t/mro/method_caching_utf8.t
t/mro/next_edgecases.t
t/mro/next_edgecases_utf8.t
t/mro/overload_c3.t
t/mro/overload_c3_utf8.t
t/mro/overload_dfs.t
t/mro/package_aliases.t
t/mro/package_aliases_utf8.t
t/mro/recursion_c3.t
t/mro/recursion_c3_utf8.t
t/mro/recursion_dfs.t
t/mro/recursion_dfs_utf8.t
t/op/64bitint.t
t/op/aassign.t
t/op/alarm.t
t/op/anonconst.t
t/op/anonsub.t
t/op/append.t
t/op/args.t
t/op/array.t
t/op/assignwarn.t
t/op/attrhand.t
t/op/attrproto.t
t/op/attrs.t
t/op/auto.t
t/op/bless.t
t/op/bop.t
t/op/caller.t
t/op/chars.t
t/op/chdir.t
t/op/chop.t
t/op/chr.t
t/op/concat2.t
t/op/cond.t
t/op/const-optree.t
t/op/context.t
t/op/coreamp.t
t/op/coresubs.t
t/op/cproto.t
t/op/crypt.t
t/op/current_sub.t
t/op/dbm.t
t/op/defins.t
t/op/delete.t
t/op/die.t
t/op/die_exit.t
t/op/die_keeperr.t
t/op/do.t
t/op/dor.t
t/op/dump.t
t/op/each.t
t/op/each_array.t
t/op/evalbytes.t
t/op/exec.t
t/op/exists_sub.t
t/op/exp.t
t/op/fh.t
t/op/filehandle.t
t/op/filetest_stack_ok.t
t/op/filetest_t.t
t/op/fork.t
t/op/fresh_perl_utf8.t
t/op/getpid.t
t/op/getppid.t
t/op/glob.t
t/op/gmagic.t
t/op/goto.t
t/op/goto_xs.t
t/op/grent.t
t/op/grep.t
t/op/groups.t
t/op/hash-rt85026.t
t/op/hashassign.t
t/op/hashwarn.t
t/op/heredoc.t
t/op/hexfp.t
t/op/inc.t
t/op/inccode.t
t/op/incfilter.t
t/op/infnan.t
t/op/int.t
t/op/join.t
t/op/kill0.t
t/op/leaky-magic.t
t/op/lex_assign.t
t/op/lfs.t
t/op/list.t
t/op/local.t
t/op/lock.t
t/op/loopctl.t
t/op/lop.t
t/op/magic-27839.t
t/op/magic.t
t/op/method.t
t/op/mkdir.t
t/op/my.t
t/op/mydef.t
t/op/negate.t
t/op/not.t
t/op/numconvert.t
t/op/or.t
t/op/ord.t
t/op/packagev.t
t/op/pos.t
t/op/postfixderef.t
t/op/pow.t
t/op/protowarn.t
t/op/pwent.t
t/op/quotemeta.t
t/op/rand.t
t/op/range.t
t/op/read.t
t/op/readdir.t
t/op/recurse.t
t/op/ref.t
t/op/repeat.t
t/op/require_37033.t
t/op/require_errors.t
t/op/reset.t
t/op/runlevel.t
t/op/setpgrpstack.t
t/op/sleep.t
t/op/splice.t
t/op/split_unicode.t
t/op/sprintf.t
t/op/sprintf2.t
t/op/srand.t
t/op/sselect.t
t/op/stash.t
t/op/stat.t
t/op/state.t
t/op/study.t
t/op/studytied.t
t/op/sub_lval.t
t/op/switch.t
t/op/symbolcache.t
t/op/sysio.t
t/op/threads-dirh.t
t/op/threads.t
t/op/tie.t
t/op/tie_fetch_count.t
t/op/tiearray.t
t/op/time.t
t/op/undef.t
t/op/unlink.t
t/op/upgrade.t
t/op/utf8cache.t
t/op/utf8decode.t
t/op/utf8magic.t
t/op/utfhash.t
t/op/ver.t
t/op/waitpid.t
t/op/wantarray.t
t/op/while.t
t/op/yadayada.t
t/opbasic/arith.t
t/re/charset.t
t/re/fold_grind.t
t/re/no_utf8_pm.t
t/re/overload.t
t/re/pat.t
t/re/pat_advanced.t
t/re/pat_psycho.t
t/re/pat_rt_report.t
t/re/pat_special_cc.t
t/re/pos.t
t/re/qr-72922.t
t/re/qr.t
t/re/qr_gc.t
t/re/qrstack.t
t/re/recompile.t
t/re/reg_60508.t
t/re/reg_email.t
t/re/reg_fold.t
t/re/reg_mesg.t
t/re/reg_nc_tie.t
t/re/reg_nocapture.t
t/re/reg_pmod.t
t/re/reg_posixcc.t
t/re/regex_sets.t
t/re/rt122747.t
t/re/speed.t
t/re/subst_amp.t
t/uni/attrs.t
t/uni/bless.t
t/uni/caller.t
t/uni/case.pl
t/uni/heavy.t
t/uni/lex_utf8.t
t/uni/method.t
t/uni/opcroak.t
t/uni/overload.t
t/uni/select.t
t/uni/sprintf.t
t/uni/universal.t

index 3a768b2..288586e 100644 (file)
@@ -2,11 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    require "./test.pl";
+    set_up_inc('../lib');
 }
 
-BEGIN { require "./test.pl"; }
-
 plan(tests => 37);
 
 my ($devnull, $no_devnull);
index 473261e..36090d2 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require './test.pl';
+    set_up_inc(qw(. ../lib));
     eval 'use Errno';
     die $@ if $@ and !is_miniperl();
 }
index 5f88a7d..0a79a05 100644 (file)
@@ -2,11 +2,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    require "./test.pl";
+    set_up_inc('../lib');
+    require "./charset_tools.pl";
 }
 
-BEGIN { require "./test.pl"; require "./charset_tools.pl"; }
-
 plan(tests => 3);
 
 # It is important that the script contains at least one newline character
index a90db68..6ba80f8 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
-    require './test.pl';
+    require "./test.pl";
+    set_up_inc('../lib');
 }
 
 if ($^O eq 'dos') {
index 9331068..7fb4c1e 100644 (file)
@@ -2,8 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
-    require "./test.pl"; require "charset_tools.pl";
+    require "./test.pl";
+    set_up_inc('../lib');
+    require "./charset_tools.pl";
     skip_all_without_perlio();
 }
 
index abcdebc..03779a9 100644 (file)
@@ -4,8 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
-    require './test.pl';
+    require "./test.pl";
+    set_up_inc('../lib');
 }
 
 $|=1;
index a70fb6f..27ba83b 100644 (file)
@@ -8,8 +8,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 16;
index 1328aeb..8a8b27e 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require "./test.pl";
+    set_up_inc(qw(. ../lib));
 }
 
 use Config;
index 1a81cdf..b8902de 100644 (file)
@@ -8,17 +8,16 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
-    skip_all_without_dynamic_extension('Fcntl');
+    set_up_inc('../lib');
 }
 
+skip_all_without_dynamic_extension('Fcntl');
+
 use warnings;
 use strict;
 use Config;
 
-require './test.pl';
-
 my $piped;
 eval {
        pipe my $in, my $out;
index 1a0d84d..1a3fd2b 100644 (file)
@@ -6,8 +6,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
-    require './test.pl';
+    require "./test.pl";
+    set_up_inc('../lib');
     skip_all_if_miniperl("No XS under miniperl");
 }
 
index ef6a7bd..938d6dc 100644 (file)
@@ -2,11 +2,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
+    require "./test.pl";
+    set_up_inc( qw(. ../lib) );
 }
 
 require Config; import Config;
-require "./test.pl";
 plan(tests => 1);
 
 SKIP: {
index 0bbfa54..8e89ebb 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 # Script to test auto flush on fork/exec/system/qx.  The idea is to
index fd36bf0..5ed2053 100644 (file)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require "./test.pl";
+    set_up_inc('../lib');
 }
 
 use Config;
index f2ac66f..d45bf09 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_if_miniperl("miniperl can't load IO::File");
 }
 
index 5e62800..541b477 100644 (file)
@@ -4,8 +4,8 @@ my $PERLIO;
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_without_perlio();
     # FIXME - more of these could be tested without Encode or full perl
     skip_all_without_dynamic_extension('Encode');
index 41417cd..f0eee30 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require "./test.pl";
+    set_up_inc('../lib');
 }
 
 print "1..5\n";
index cffef14..6be9f0e 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 $|  = 1;
index 946fa5e..d3fcf78 100644 (file)
@@ -9,8 +9,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 if ($^O eq 'dos') {
index 6b03e19..91652ab 100644 (file)
@@ -1,8 +1,8 @@
 BEGIN {
        chdir 't' if -d 't';
-       @INC = '../lib';
        require Config; import Config;
-       require './test.pl';
+    require './test.pl';
+    set_up_inc('../lib');
        skip_all_without_perlio();
 }
 
index 6bc9b17..f7aa709 100644 (file)
@@ -2,12 +2,13 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require "../t/test.pl";
+    set_up_inc('../lib');
     skip_all_without_perlio();
-    plan (15);
 }
 
+plan (15);
+
 use warnings 'layer';
 my $warn;
 my $file = "fail$$";
index a7cdf28..f725eef 100644 (file)
@@ -3,8 +3,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 702c76c..99d7e51 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_without_perlio();
     skip_all_without_dynamic_extension('Fcntl'); # how did you get this far?
 }
index fdd8b99..bec1a66 100644 (file)
@@ -2,16 +2,15 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require Config; import Config;
     require './test.pl';
-
-    if (!$Config{'d_fork'}) {
-        skip_all("fork required to pipe");
-    }
-    else {
-        plan(tests => 24);
-    }
+    set_up_inc('../lib');
+}
+if (!$Config{'d_fork'}) {
+    skip_all("fork required to pipe");
+}
+else {
+    plan(tests => 24);
 }
 
 my $Perl = which_perl();
index 4336090..f8f3646 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     eval 'use Errno';
     die $@ if $@ and !is_miniperl();
 }
index 19f9733..2affbac 100644 (file)
@@ -5,8 +5,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require "./test.pl";
+    set_up_inc(qw(. ../lib));
 }
 
 BEGIN { $| = 1 }
index 8cc1640..601b9c1 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     eval 'use Errno';
     die $@ if $@ and !is_miniperl();
 }
index 70f83a7..83e6394 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     eval 'use Errno';
     die $@ if $@ and !is_miniperl();
 }
index 0e309eb..7a911fc 100644 (file)
@@ -2,9 +2,9 @@
 
 BEGIN {
   chdir 't' if -d 't';
-  @INC = '../lib' if -d '../lib' && -d '../ext';
 
   require "./test.pl";
+  set_up_inc( '../lib' ) if -d '../lib' && -d '../ext';
   require Config; import Config;
 
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
index 01e2172..3feb303 100644 (file)
 ################################################################################
 
 BEGIN {
-  if ($ENV{'PERL_CORE'}) {
-    chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib' && -d '../ext';
-  }
-
+  chdir 't' if -d 't' && $ENV{'PERL_CORE'};
   require "./test.pl";
+  set_up_inc('../lib') if $ENV{'PERL_CORE'} && -d '../lib' && -d '../ext';
+
   require Config; import Config;
 
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
index bba7f91..0783a77 100644 (file)
@@ -4,9 +4,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib' && -d '../ext';
 
     require "./test.pl";
+    set_up_inc( '../lib' ) if -d '../lib' && -d '../ext';
     require Config; import Config;
 
     skip_all_if_miniperl();
index f9226b0..5474499 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 print "1..35\n";
index e1b3c3c..65a64bb 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all("VMS too picky about line endings for record-oriented pipes")
        if $^O eq 'VMS';
 }
index 2606ef5..282b8e7 100644 (file)
@@ -2,10 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl'; require './charset_tools.pl';
-    skip_all_without_perlio();
+    set_up_inc('../lib');
 }
+skip_all_without_perlio();
 
 no utf8; # needed for use utf8 not griping about the raw octets
 
index 8d54dc3..994831f 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require q(./test.pl);
+    set_up_inc('../lib');
 }
 
 use strict;
index b005226..7bb53b1 100644 (file)
@@ -3,14 +3,15 @@
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
+    require q(./test.pl);
+    set_up_inc('../lib');
 }
 
 use strict;
 use warnings;
 
-require q(./test.pl); plan(tests => 1);
+plan(tests => 1);
 
 require mro;
 
index b7baa3e..4d2b5be 100644 (file)
@@ -3,8 +3,9 @@
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
+    require q(./test.pl);
+    set_up_inc('../lib');
 }
 
 use strict;
@@ -13,7 +14,7 @@ use warnings;
 use utf8;
 use open qw( :utf8 :std );
 
-require q(./test.pl); plan(tests => 1);
+plan(tests => 1);
 
 require mro;
 
index 6ce81d1..eb2aeea 100644 (file)
@@ -1,6 +1,10 @@
 #!./perl
 
-BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl' }
+BEGIN {
+    chdir 't' if -d 't';
+    require './test.pl';
+    set_up_inc('../lib');
+}
 
 plan 13;
 
index 721a491..fa972e4 100644 (file)
@@ -1,6 +1,10 @@
 #!./perl
 
-BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl' }
+BEGIN {
+    chdir 't' if -d 't';
+    require './test.pl';
+    set_up_inc('../lib');
+}
 
 use utf8;
 use open qw( :utf8 :std );
index 20ae5f0..ecec0a5 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require "./test.pl";
+    set_up_inc('../lib');
 }
 
 use strict;
index 3e2e7a9..431e739 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require "./test.pl";
+    set_up_inc('../lib');
 }
 
 use strict;
index 77c122e..e32ed75 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require "./test.pl";
+    set_up_inc('../lib');
 }
 
 use strict;
index 1c95eaa..6fa0b59 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require "./test.pl";
+    set_up_inc('../lib');
 }
 
 use strict;
index 892b40c..bc35dd2 100644 (file)
@@ -3,9 +3,9 @@
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
     require q(./test.pl);
+    set_up_inc('../lib') unless -d 'blib';
 }
 
 use strict;
index dff3058..61f7cf3 100644 (file)
@@ -3,9 +3,9 @@
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
     require q(./test.pl);
+    set_up_inc('../lib');
 }
 
 use strict;
index ab312a8..a6b2906 100644 (file)
@@ -3,9 +3,9 @@
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index ee31869..31187ca 100644 (file)
@@ -3,8 +3,9 @@
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
+    require './test.pl';
+    set_up_inc('../lib');
 }
 
 use utf8;
@@ -14,8 +15,6 @@ use warnings;
 no warnings 'redefine'; # we do a lot of this
 no warnings 'prototype'; # we do a lot of this
 
-require './test.pl';
-
 {
     package MC텟ᵀ::Bࡎᶓ;
     sub ᕘ { return $_[1]+1 };
index ccae4ef..31a3355 100644 (file)
@@ -3,7 +3,9 @@
 use strict;
 use warnings;
 
-BEGIN { chdir 't' if -d 't'; require q(./test.pl); @INC = qw "../lib lib" }
+BEGIN { chdir 't' if -d 't'; require q(./test.pl);
+set_up_inc('../lib', 'lib');
+}
 
 plan(tests => 12);
 
index 3546a70..8be8d66 100644 (file)
@@ -3,7 +3,11 @@
 use strict;
 use warnings;
 
-BEGIN { chdir 't' if -d 't'; require q(./test.pl); @INC = qw "../lib lib" }
+BEGIN {
+    chdir 't' if -d 't';
+    require q(./test.pl);
+    set_up_inc('../lib', 'lib');
+}
 
 use utf8;
 use open qw( :utf8 :std );
@@ -47,7 +51,7 @@ plan(tests => 12);
     SKIP: {    
         eval 'use Sub::Name';
         skip("Sub::Name is required for this test", 3) if $@;
-    
+
         my $m = sub { (shift)->next::method() };
         Sub::Name::subname('Baɾ::ƚ', $m);
         {
index db2b1ec..0ba1509 100644 (file)
@@ -5,11 +5,12 @@ use warnings;
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
+    require q(./test.pl);
+    set_up_inc('../lib');
 }
 
-require q(./test.pl); plan(tests => 7);
+plan(tests => 7);
 
 {
     package BaseTest;
index bcb9f70..3981cbe 100644 (file)
@@ -5,14 +5,15 @@ use warnings;
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
+    require q(./test.pl);
+    set_up_inc('../lib');
 }
 
 use utf8;
 use open qw( :utf8 :std );
 
-require q(./test.pl); plan(tests => 7);
+plan(tests => 7);
 
 {
     package 밧e텟ʇ;
index 5943c85..00d2753 100644 (file)
@@ -5,11 +5,12 @@ use warnings;
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
+    require q(./test.pl);
+    set_up_inc('../lib');
 }
 
-require q(./test.pl); plan(tests => 7);
+plan(tests => 7);
 
 {
     package BaseTest;
index 6998a89..dd811a6 100644 (file)
@@ -3,9 +3,9 @@
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
     require q(./test.pl);
+    set_up_inc('../lib');
 }
 
 use strict;
index 09db6b7..0fc762d 100644 (file)
@@ -4,9 +4,9 @@ BEGIN {
     $ENV{PERL_UNICODE} = 0;
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
     require q(./test.pl);
+    set_up_inc('../lib');
 }
 
 use strict;
index 6ebd7fb..d5bcbaf 100644 (file)
@@ -1,14 +1,13 @@
 #!./perl
 
 BEGIN {
+    require './test.pl';
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
+    set_up_inc('../lib');
 }
 
-require './test.pl';
-
 use strict;
 use warnings;
 
index 3abc136..bac3a59 100644 (file)
@@ -5,14 +5,13 @@ use warnings;
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
+    require './test.pl';
+    set_up_inc('../lib');
 }
 use utf8;
 use open qw( :utf8 :std );
 
-require './test.pl';
-
 plan(skip_all => "Your system has no SIGALRM") if !exists $SIG{ALRM};
 plan(tests => 8);
 
index 00efe6d..88c4ece 100644 (file)
@@ -1,17 +1,14 @@
 #!./perl
 
 BEGIN {
-    unless (-d 'blib') {
-        chdir 't' if -d 't';
-        @INC = '../lib';
-    }
+    chdir 't' if -d 't';
+    require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
 use warnings;
 
-require './test.pl';
-
 plan(skip_all => "Your system has no SIGALRM") if !exists $SIG{ALRM};
 plan(tests => 8);
 
index 6b428e1..4ad427e 100644 (file)
@@ -5,14 +5,13 @@ use warnings;
 BEGIN {
     unless (-d 'blib') {
         chdir 't' if -d 't';
-        @INC = '../lib';
     }
+    require './test.pl';
+    set_up_inc('../lib');
 }
 use utf8;
 use open qw( :utf8 :std );
 
-require './test.pl';
-
 plan(skip_all => "Your system has no SIGALRM") if !exists $SIG{ALRM};
 plan(tests => 8);
 
index b764f0e..a5f6f10 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     eval { my $q = pack "q", 0 };
     skip_all('no 64-bit types') if $@;
 }
index f9493d9..e894841 100644 (file)
@@ -15,8 +15,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib')
 }
 
 use warnings;
index 28cc65c..749482c 100644 (file)
@@ -2,15 +2,14 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
-BEGIN {
-    use Config;
-    if( !$Config{d_alarm} ) {
-        skip_all("alarm() not implemented on this platform");
-    }
+
+use Config;
+if ( !$Config{d_alarm} ) {
+    skip_all("alarm() not implemented on this platform");
 }
 
 plan tests => 5;
index b281cc1..89a6acb 100644 (file)
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't';
     require './test.pl';
-    @INC = "../lib";
+    set_up_inc("../lib");
 }
 
 plan 8;
index d65acfe..91976e5 100644 (file)
@@ -1,8 +1,9 @@
 #!./perl -w
 
 chdir 't' if -d 't';
-@INC = '../lib';
 require './test.pl';
+set_up_inc('../lib');
+
 use strict;
 
 $|=1;
index 44847b5..5001dc6 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 ##Literal test count since evals below can fail
index 23b5505..7cf5cbd 100644 (file)
@@ -2,10 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    require './test.pl';
+    set_up_inc('../lib');
 }
 
-require './test.pl';
 plan( tests => 23 );
 
 # test various operations on @_
index c8513d1..691d6ce 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('.', '../lib');
     require './test.pl';
+    set_up_inc('.', '../lib');
 }
 
 plan (173);
index ac1ad77..8101943 100644 (file)
@@ -9,8 +9,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 996d572..13a2381 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_if_miniperl("miniperl can't load attributes");
 }
 
index 464081f..e30e40a 100644 (file)
@@ -5,8 +5,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_if_miniperl("miniperl can't load attributes");
 }
 use warnings;
index 219db03..23b00ca 100644 (file)
@@ -4,8 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_if_miniperl("miniperl can't load attributes");
 }
 
index 90380ed..64dd06d 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require "./test.pl";
+    set_up_inc(qw(. ../lib));
 }
 
 plan( tests => 47 );
index 69217fd..73c82ba 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan (114);
index 14e57ba..2afb8d7 100644 (file)
@@ -9,8 +9,9 @@ no warnings 'deprecated';
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
-    require "./test.pl"; require "./charset_tools.pl";
+    require "./test.pl";
+    set_up_inc('../lib');
+    require "./charset_tools.pl";
     require Config;
 }
 
index 46a3316..969c3bd 100644 (file)
@@ -3,9 +3,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
-    plan( tests => 96 );
+    set_up_inc('../lib');
+    plan( tests => 96 ); # some tests are run in a BEGIN block
 }
 
 my @c;
index 5eef677..2c31259 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 34;
index a5ea76a..9967707 100644 (file)
@@ -8,11 +8,12 @@ BEGIN {
     # We're not going to chdir() into 't' because we don't know if
     # chdir() works!  Instead, we'll hedge our bets and put both
     # possibilities into @INC.
-    unshift @INC, qw(t . lib ../lib);
-    require "test.pl";
-    plan(tests => 47);
+    require "./test.pl";
+    set_up_inc(qw(t . lib ../lib));
 }
 
+plan(tests => 47);
+
 use Config;
 use Errno qw(ENOENT EBADF EINVAL);
 
index 04c26f6..743f21a 100644 (file)
@@ -2,8 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
-    require './test.pl'; require './charset_tools.pl';
+    require './test.pl';
+    set_up_inc('../lib');
+    require './charset_tools.pl';
 }
 
 my $tests_count = 148;
index d43fa59..e0a51eb 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib); # ../lib needed for test.deparse
     require "./test.pl";
+    set_up_inc(qw(. ../lib)); # ../lib needed for test.deparse
 }
 
 plan tests => 45;
index 363bcf8..cc2fa4f 100644 (file)
@@ -8,8 +8,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan 2;
index acf0704..25d5060 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 is( 1 ? 1 : 0, 1, 'compile time, true' );
index bd47064..b378d4a 100644 (file)
@@ -6,7 +6,7 @@
 BEGIN {
     chdir 't';
     require './test.pl';
-    @INC = '../lib';
+    set_up_inc('../lib');
 }
 plan 168;
 
index 41ee84b..29b08c0 100644 (file)
@@ -2,7 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
+    require "./test.pl";
+    set_up_inc( qw(. ../lib) );
 }
 
 require "./test.pl";
index e2d2f10..c958654 100644 (file)
@@ -9,9 +9,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib ../dist/if);
     require "./test.pl"; require './charset_tools.pl';
     $^P |= 0x100;
+    set_up_inc( qw(. ../lib ../dist/if) );
 }
 
 no warnings 'experimental::smartmatch';
index c18fdcd..62210b5 100644 (file)
@@ -6,8 +6,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require "./test.pl";
+    set_up_inc(qw(. ../lib));
     skip_all_without_dynamic_extension('B');
     $^P |= 0x100;
 }
index aace8aa..fec9fe6 100644 (file)
@@ -3,10 +3,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    require './test.pl';
+    set_up_inc('../lib');
 }
 
-BEGIN { require './test.pl'; }
 plan tests => 254;
 
 while (<DATA>) {
index 4e06629..5e7183b 100644 (file)
@@ -2,21 +2,18 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
-}
-
-BEGIN {
-    use Config;
-
     require "./test.pl";
+    set_up_inc( qw(. ../lib) );
+    use Config;
+}
 
-    if( !$Config{d_crypt} ) {
-        skip_all("crypt unimplemented");
-    }
-    else {
-        plan(tests => 6);
-    }
+if ( !$Config{d_crypt} ) {
+    skip_all("crypt unimplemented");
 }
+else {
+    plan(tests => 6);
+}
+
 
 # Can't assume too much about the string returned by crypt(),
 # and about how many bytes of the encrypted (really, hashed)
index 2dcc184..b7647fa 100644 (file)
@@ -2,9 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(../lib);
     require './test.pl';
-    plan (tests => 22);
+    set_up_inc( qw(../lib) );
+    plan (tests => 22); # some tests are run in BEGIN block
 }
 
 is __SUB__, "__SUB__", '__SUB__ is a bareword outside of use feature';
index 28ed700..f3b7de2 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 
     eval { require AnyDBM_File }; # not all places have dbm* functions
     skip_all("No dbm functions") if $@;
index 86e0dd8..fb746d5 100644 (file)
@@ -6,10 +6,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
+    require './test.pl';
+    set_up_inc( qw(. ../lib) );
     $SIG{__WARN__} = sub { $warns++; warn $_[0] };
 }
-require './test.pl';
+
 plan( tests => 27 );
 
 my $unix_mode = 1;
index e683327..e7c1e87 100644 (file)
@@ -2,10 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
+    require "./test.pl";
+    set_up_inc( qw(. ../lib) );
 }
 
-require "./test.pl";
 plan( tests => 38 );
 
 # delete() on hash elements
index c98b8ff..0833095 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 19;
index bd9ac28..e074913 100644 (file)
@@ -7,8 +7,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 055a802..80c4c02 100644 (file)
@@ -3,9 +3,10 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    plan(24);
 }
 
+plan(24);
+
 sub End::DESTROY { $_[0]->() }
 
 sub end(&) {
index 26a0b17..78d8800 100644 (file)
--- a/t/op/do.t
+++ b/t/op/do.t
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc( '../lib' );
 }
 use strict;
 no warnings 'void';
index 7fbeca0..4b89fd0 100644 (file)
@@ -4,11 +4,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    require "./test.pl";
+    set_up_inc('../lib');
 }
 
 package main;
-require './test.pl';
 
 plan( tests => 34 );
 
index 7c5c3af..0d9c548 100644 (file)
@@ -4,12 +4,12 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require './test.pl';
-
-    skip_all_if_miniperl();
+    set_up_inc( qw(. ../lib) );
 }
 
+skip_all_if_miniperl();
+
 use Config;
 use File::Temp qw(tempdir);
 use Cwd qw(getcwd);
index f245a7e..e9ee302 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 59;
index f6916dc..b819d26 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 use strict;
 use warnings;
index cca7c04..9b77c8e 100644 (file)
@@ -2,8 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
-    require './test.pl'; require './charset_tools.pl';
+    require './test.pl';
+    set_up_inc('../lib');
+    require './charset_tools.pl';
 }
 
 plan(tests => 8);
index 325ccb2..886c323 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib');
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 my $vms_exit_mode = 0;
index a08e0f5..9785fa3 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 sub t1;
index eb53f1b..5878f44 100644 (file)
@@ -4,8 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use Config;
index 356eb43..bda59c1 100644 (file)
--- a/t/op/fh.t
+++ b/t/op/fh.t
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 8;
index a7621db..5ccdf5e 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_if_miniperl("no dynamic loading on miniperl, no IO, hence no FileHandle");
 }
 
index 4128612..ceff452 100644 (file)
@@ -6,8 +6,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 my @ops = split //, 'rwxoRWXOezsfdlpSbctugkTMBAC';
index eec67ec..a7819ea 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 77cc7b7..b69a929 100644 (file)
@@ -4,8 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     require Config;
     skip_all('no fork')
        unless ($Config::Config{d_fork} or $Config::Config{d_pseudofork});
index fcf48e7..b540a80 100644 (file)
@@ -4,8 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan 1;
index cc3085a..6ae05fc 100644 (file)
@@ -4,14 +4,14 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(../lib);
     require './test.pl';
+    set_up_inc( qw(../lib) );
 }
 
 use strict;
 use Config;
 
-BEGIN {
+{
     skip_all_without_config(qw(useithreads d_getppid));
     skip_all_if_miniperl("no dynamic loading on miniperl, no threads");
     eval 'use threads; use threads::shared';
index a8d0f2c..11e0f64 100644 (file)
@@ -9,16 +9,14 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(../lib);
+    require './test.pl';
+    set_up_inc( qw(../lib) );
 }
 
 use strict;
 
-BEGIN {
-    require './test.pl';
-    skip_all_without_config(qw(d_pipe d_fork d_waitpid d_getppid));
-    plan (8);
-}
+skip_all_without_config(qw(d_pipe d_fork d_waitpid d_getppid));
+plan (8);
 
 # No, we don't want any zombies. kill 0, $ppid spots zombies :-(
 $SIG{CHLD} = 'IGNORE';
index 7eec330..01f46a0 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require './test.pl';
+    set_up_inc( qw(. ../lib) );
 }
 
 plan( tests => 18 );
@@ -143,4 +143,4 @@ SKIP: {
         print "ok2" if $output1 eq $output2;
     }
 EOP
-}
\ No newline at end of file
+}
index 43f8fdb..1226e3a 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 351f86a..58780bb 100644 (file)
@@ -4,8 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require "./test.pl"; require './charset_tools.pl';
+    set_up_inc( qw(. ../lib) );
 }
 
 use warnings;
index fbdd2dd..f7d50b7 100644 (file)
@@ -12,7 +12,7 @@ BEGIN {
     require './test.pl';
 # turn warnings into fatal errors
     $SIG{__WARN__} = sub { die "WARNING: @_" } ;
-
+    set_up_inc('../lib');
     skip_all_if_miniperl("no dynamic loading on miniperl, no Fcntl");
     require Fcntl;
 }
index 3b28619..8fc8c7c 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 eval {my @n = getgrgid 0};
index 83ee4b6..765fd6b 100644 (file)
@@ -5,9 +5,9 @@
 #
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = qw(. ../lib);
+    chdir 't' if -d 't'; 
     require "./test.pl";
+    set_up_inc( qw(. ../lib) );
 }
 
 plan( tests => 67 );
index 754690c..c92b61d 100644 (file)
@@ -11,10 +11,11 @@ BEGIN {
     $ENV{LANGUAGE} = 'C'; # GNU locale extension
 
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
-    skip_all_if_miniperl("no dynamic loading on miniperl, no POSIX");
+    set_up_inc( '../lib' );
 }
+skip_all_if_miniperl("no dynamic loading on miniperl, no POSIX");
+
 use 5.010;
 use strict;
 use Config ();
index 8dbf004..ecd4bcd 100644 (file)
@@ -2,11 +2,13 @@
 
 BEGIN {
   chdir 't' if -d 't';
-  @INC = '../lib';
   require './test.pl';
-  skip_all_without_dynamic_extension("Devel::Peek");
+  set_up_inc( '../lib' );
 }
 
+skip_all_without_dynamic_extension("Devel::Peek");
+
+
 use strict;
 use Devel::Peek;
 use File::Temp qw(tempdir);
index 57a625c..d6ede42 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 # use strict;
index 6d72244..72f4a8e 100644 (file)
@@ -2,10 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
+    require './test.pl';
+    set_up_inc( qw(. ../lib) );
 }
 
-require './test.pl';
 plan( tests => 18 );
 
 use strict;
index 8fe0c0f..90ba606 100644 (file)
@@ -1,9 +1,9 @@
 # tests for heredocs besides what is tested in base/lex.t
 
 BEGIN {
-   chdir 't' if -d 't';
-   @INC = '../lib';
-   require './test.pl';
+    chdir 't' if -d 't';
+    require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index c4c08cc..bdf1e95 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index e362ed1..20d4769 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 016b425..4e81a8a 100644 (file)
@@ -197,7 +197,7 @@ is( $ret, 'abc', 'do "abc.pl" sees return value' );
     my $got;
     #local @INC; # local fails on tied @INC
     my @old_INC = @INC; # because local doesn't work on tied arrays
-    @INC = ('lib', 'lib/Devel', sub { $got = $_[1]; return undef; });
+    @INC =  ('lib', 'lib/Devel', sub { $got = $_[1]; return undef; });
     foreach my $filename ('/test_require.pm', './test_require.pm',
                          '../test_require.pm') {
        local %INC;
@@ -274,7 +274,7 @@ sub fake_module {
 }
 {
     local @INC = @INC;
-    unshift @INC, (\&fake_module)x2;
+    @INC = (\&fake_module)x2;
     eval { require "${\'bralbalhablah'}" };
     like $@, qr/^Can't locate/,
         'require PADTMP passing freed var when @INC has multiple subs';\r
index 9019ba5..73913ba 100644 (file)
@@ -4,11 +4,13 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require './test.pl';
-    skip_all_if_miniperl('no dynamic loading on miniperl, no Filter::Util::Call');
-    skip_all_without_perlio();
+    set_up_inc( qw(. ../lib) );
 }
+
+skip_all_if_miniperl('no dynamic loading on miniperl, no Filter::Util::Call');
+skip_all_without_perlio();
+
 use strict;
 use Config;
 use Filter::Util::Call;
index 06fb60d..b50d6e6 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index dda4908..7e936da 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     require Config;
 }
 
index 17b618e..7f9a196 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 29;
index 7f6e6ec..402916e 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 BEGIN {
index dd94d30..92d1c73 100644 (file)
@@ -7,7 +7,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = '../lib';
+    set_up_inc('../lib');
 }
 
 # Hack to allow test counts to be specified piecemeal
@@ -19,6 +19,7 @@ plan (tests => $tests);
 use tests 2; # First make sure that %! %- %+ do not load extra modules.
 map %{"foo::$_"}, qw< ! - + >;
 ok !exists $INC{'Errno.pm'}, '$swext::! does not load Errno';
+
 ok !exists $INC{'Tie/Hash/NamedCapture.pm'},
   '$foo::+ and $foo::- do not load Tie::Hash::NamedCapture';
 
index 3e7a008..e1abde3 100644 (file)
@@ -5,8 +5,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 $| = 1;
@@ -102,12 +102,13 @@ EOE
 {                              # Check calling STORE
   note('Tied variables, calling STORE');
   my $sc = 0;
-  sub B::TIESCALAR {bless [11], 'B'}
-  sub B::FETCH { -(shift->[0]) }
-  sub B::STORE { $sc++; my $o = shift; $o->[0] = 17 + shift }
+  # do not use B:: namespace
+  sub BB::TIESCALAR {bless [11], 'BB'}
+  sub BB::FETCH { -(shift->[0]) }
+  sub BB::STORE { $sc++; my $o = shift; $o->[0] = 17 + shift }
 
   my $m;
-  tie $m, 'B';
+  tie $m, 'BB';
   $m = 100;
 
   is( $sc, 1, 'STORE called when assigning scalar to tied variable' );
index acf9fe8..1ddfd13 100644 (file)
@@ -4,9 +4,9 @@
 
 BEGIN {
        chdir 't' if -d 't';
-       @INC = '../lib';
        require './test.pl';
-       require Config;
+       set_up_inc('../lib');
+    require Config;
        # Don't bother if there are no quad offsets.
        skip_all('no 64-bit file offsets')
                if $Config::Config{lseeksize} < 8;
index 9fe00a4..7bd3eb4 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require "./test.pl";
+    set_up_inc(qw(. ../lib));
 }
 
 plan( tests => 70 );
index 7ff21ab..fa22126 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require './test.pl';
+    set_up_inc(  qw(. ../lib) );
 }
 plan tests => 310;
 
index c40ec4c..972fc0e 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require './test.pl';
+    set_up_inc( qw(. ../lib) );
 }
 plan tests => 5;
 
index e0e37e4..1bb3c9c 100644 (file)
@@ -32,8 +32,8 @@
 #  -- .robin. <robin@kitsite.com>  2001-03-13
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require "./test.pl";
+    set_up_inc(qw(. ../lib));
 }
 
 plan( tests => 67 );
index fe1c432..9ec628a 100644 (file)
@@ -6,8 +6,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 23;
index a1c7fe2..d8af53f 100644 (file)
@@ -4,10 +4,11 @@ BEGIN {
     $SIG{__WARN__} = sub { die "Dying on warning: ", @_ };
     chdir 't' if -d 't';
     require './test.pl';
-    skip_all_if_miniperl("no dynamic loading on miniperl, no Tie::Hash::NamedCapture");
-    plan(tests => 2);
 }
 
+skip_all_if_miniperl("no dynamic loading on miniperl, no Tie::Hash::NamedCapture");
+plan(tests => 2);
+
 use strict;
 
 # Test for bug [perl #27839]
index f8c822b..3f71f8e 100644 (file)
@@ -3,9 +3,9 @@
 BEGIN {
     $| = 1;
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
-    plan (tests => 192);
+    set_up_inc( '../lib' );
+    plan (tests => 192); # some tests are run in BEGIN block
 }
 
 # Test that defined() returns true for magic variables created on the fly,
@@ -62,6 +62,7 @@ $PERL =
     $Is_MSWin32 ? '.\perl' :
                   './perl');
 
+
 sub env_is {
     my ($key, $val, $desc) = @_;
 
@@ -706,6 +707,7 @@ is ++${^MPEN}, 1, '${^MPEN} can be incremented';
     sub FETCH { push @RT12608::G::ISA, "RT12608::H"; "RT12608::Y"; }
 }
 
+
 # ^^^^^^^^^ New tests go here ^^^^^^^^^
 
 SKIP: {
index a9666bb..8795734 100644 (file)
@@ -6,8 +6,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib lib ../dist/base/lib);
     require "./test.pl";
+    set_up_inc( qw(. ../lib lib ../dist/base/lib) );
 }
 
 use strict;
@@ -543,7 +543,7 @@ like $@,
      qr/^Can't call method "squeak" on unblessed reference/,
     'method call on \*typeglob';
 *stdout2 = *STDOUT;  # stdout2 now stringifies as *main::STDOUT
-sub IO::Handle::self { $_[0] }
+ sub IO::Handle::self { $_[0] }
 # This used to stringify the glob:
 is *stdout2->self, (\*stdout2)->self,
   '*glob->method is equiv to (\*glob)->method';
index d37acc6..ba2378a 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 17;
index e76fc5e..3521106 100644 (file)
--- a/t/op/my.t
+++ b/t/op/my.t
@@ -1,8 +1,8 @@
 #!./perl
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 sub foo {
index 11b55dd..42a81d9 100644 (file)
@@ -2,13 +2,14 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
+plan tests => 1;
+
 use strict;
 
 eval 'my $_';
 like $@, qr/^Can't use global \$_ in "my" at /;
 
-done_testing();
index 8fa8c0a..683804d 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 48;
index 17f7a36..48a0168 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 24;
index e62cac3..2fbffa0 100644 (file)
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
     if (pack("d", 1) =~ /^[\x80\10]\x40/) {
         skip_all("VAX float cannot do infinity");
     }
+    set_up_inc('../lib');
 }
 
 use strict;
index 9e7de4c..503dd57 100644 (file)
--- a/t/op/or.t
+++ b/t/op/or.t
@@ -4,7 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    require './test.pl';
+    set_up_inc('../lib');
 }
 
 
@@ -23,7 +24,6 @@ sub FETCH {
 
 
 package main;
-require './test.pl';
 
 plan( tests => 14 );
 
index 51b2a4e..deb0880 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib); # ../lib needed for test.deparse
     require "./test.pl";
+    set_up_inc(qw(. ../lib)); # ../lib needed for test.deparse
 }
 
 plan tests => 35;
index d485f58..8d00b39 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw '../lib ../cpan/version/lib';
     require './test.pl';
+    set_up_inc(qw '../lib ../cpan/version/lib');
 }
 
 # XXX remove this later -- dagolden, 2010-01-13
index 0bc997e..9d9c3d5 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 33;
index c3fa968..ba69f06 100644 (file)
@@ -10,8 +10,8 @@ this file contains all dereferencing tests from ref.t but using postfix instead
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require './test.pl';
+    set_up_inc(qw(. ../lib));
 }
 
 use strict qw(refs subs);
index 4cfeed1..e9608ff 100644 (file)
@@ -3,8 +3,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 # This calculation ought to be within 0.001 of the right answer.
index eb046e5..cbec601 100644 (file)
@@ -2,16 +2,14 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
+    require './test.pl';
+    set_up_inc( qw(. ../lib) );
 }
 
 use strict;
 use warnings;
 
-BEGIN {
-    require './test.pl';
-    plan( tests => 12 );
-}
+plan( tests => 12 );
 
 use vars qw{ @warnings $sub $warn };
 
index f4cc8ec..e1fc1e1 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 35ed2c6..20497bf 100644 (file)
@@ -2,9 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(../lib .);
-    require Config; import Config;
     require "./test.pl";
+    set_up_inc(  qw(../lib .) );
+    require Config; import Config;
     require "./loc_tools.pl";
 }
 
index b3df32e..7a7f757 100644 (file)
 
 BEGIN {
     chdir "t" if -d "t";
-    @INC = qw(. ../lib);
+    require "./test.pl";
+    set_up_inc( qw(. ../lib) );
 }
 
 use strict;
 use Config;
 
-require "./test.pl";
-
-
 my $reps = 100_000;    # How many times to try rand each time.
                        # May be changed, but should be over 500.
                        # The more the better! (But slower.)
index 7809882..f30fa8d 100644 (file)
@@ -2,10 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib', '.');
+    require './test.pl';
+    set_up_inc('../lib', '.');
 }   
 # Avoid using eq_array below as it uses .. internally.
-require './test.pl';
 
 use Config;
 
index 11cb454..c5b616a 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 use strict;
 
index 8515d1d..84648f2 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
@@ -71,6 +71,7 @@ SKIP:
 { # [perl #118651]
   # test that readdir doesn't modify errno on successfully reaching the end of the list
   # in scalar context, POSIX requires that readdir() not modify errno on end-of-directory
+
   my @s;
   ok(opendir(OP, "op"), "opendir op");
   $! = 0;
index c64dda1..7626af9 100644 (file)
@@ -6,11 +6,12 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require "./test.pl";
-    plan(tests => 28);
+    set_up_inc(qw(. ../lib));
 }
 
+plan(tests => 28);
+
 use strict;
 
 sub gcd {
index 84d9217..65d50b6 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require './test.pl';
+    set_up_inc( qw(. ../lib) );
 }
 
 use strict qw(refs subs);
index 3bd0885..d21bdb3 100644 (file)
@@ -2,10 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    require './test.pl';
+    set_up_inc( '../lib' );
 }
 
-require './test.pl';
 plan(tests => 48);
 
 # compile time
index b107636..f06b49e 100644 (file)
@@ -5,7 +5,7 @@
 
 chdir 't' if -d 't';
 require './test.pl';
-@INC = 'lib';
+set_up_inc( 'lib' );
 
 use strict;
 
index f2f98b0..d2c2bb5 100644 (file)
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC="../lib";
+    set_up_inc( qw(../lib) );
 }
 
 use strict;
@@ -13,8 +13,6 @@ plan(tests => 20);
 
 my $nonfile = tempfile();
 
-@INC = qw(Perl Rules);
-
 # The tests for ' ' and '.h' never did fail, but previously the error reporting
 # code would read memory before the start of the SV's buffer
 
@@ -133,7 +131,7 @@ like $@, qr/^Can't locate strict\.pm\\0invalid: /, 'do nul check';
 
   $WARN = '';
   local @INC = @INC;
-  unshift @INC, "lib\0invalid";
+  set_up_inc( "lib\0invalid" );
   eval { require "unknown.pm" };
   like $WARN, qr{^Invalid \\0 character in \@INC entry for require: lib\\0invalid at }, 'nul warning';
 }
index 9b35c1a..bb5fbfc 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 use strict;
 
index 5b6b39f..c42ce2d 100644 (file)
@@ -7,8 +7,8 @@
 ##
 
 chdir 't' if -d 't';
-@INC = '../lib';
 require './test.pl';
+set_up_inc('../lib');
 
 $|=1;
 
index b384138..588c8b9 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_without_config('d_setpgrp');
 }
 
index 441f76a..d0ed917 100644 (file)
@@ -2,10 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
+    require "./test.pl";
+    set_up_inc( qw(. ../lib) );
 }
 
-require "./test.pl";
 plan( tests => 4 );
 
 use strict;
index e61f732..7ad49db 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 $|  = 1;
index 8bfa935..1d02cb2 100644 (file)
@@ -3,10 +3,11 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    skip_all_if_miniperl("no dynamic loading on miniperl, no File::Spec (used by charnames)");
-    plan(tests => 145);
 }
 
+skip_all_if_miniperl("no dynamic loading on miniperl, no File::Spec (used by charnames)");
+plan(tests => 145);
+
 {
     # check the special casing of split /\s/ and unicode
     use charnames qw(:full);
index 2fd91c7..18bee69 100644 (file)
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw '../lib ../cpan/version/lib';
+    require './test.pl';
+    set_up_inc(qw '../lib ../cpan/version/lib');
 }
 use warnings;
 use version;
 use Config;
 use strict;
-require './test.pl';
+
 
 my @tests = ();
 my ($template, $data, $result, $comment, $w, $x, $evalData, $n, $p);
index fe1bac9..c690189 100644 (file)
@@ -4,8 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }   
 
 # We'll run 12 extra tests (see below) if $Q is false.
@@ -298,7 +298,7 @@ for my $i (1, 3, 5, 10) {
 # Used to mangle PL_sv_undef
 fresh_perl_like(
     'print sprintf "xxx%n\n"; print undef',
-    qr/Modification of a read-only value attempted at - line 1\./,
+    qr/Modification of a read-only value attempted at\b/,
     { switches => [ '-w' ] },
     q(%n should not be able to modify read-only constants),
 );
index 61c64d2..09de60a 100644 (file)
@@ -2,14 +2,14 @@
 
 BEGIN {
     chdir "t" if -d "t";
-    @INC = qw(. ../lib);
+    require "./test.pl";
+    set_up_inc( qw(. ../lib) );
 }
 
 # Test srand.
 
 use strict;
 
-require "./test.pl";
 plan(tests => 10);
 
 # Generate a load of random numbers.
index 212c69a..a2507c7 100644 (file)
@@ -3,12 +3,11 @@
 my $hires;
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('.', '../lib');
+    require './test.pl';
+    set_up_inc('.', '../lib');
     $hires = eval 'use Time::HiResx "time"; 1';
 }
 
-require './test.pl';
-
 skip_all("Win32 miniperl has no socket select")
   if $^O eq "MSWin32" && is_miniperl();
 
index fe42700..8d2d628 100644 (file)
@@ -2,11 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(../lib);
+    require "./test.pl";
+    set_up_inc( qw(../lib) );
 }
 
-BEGIN { require "./test.pl"; }
-
 plan( tests => 54 );
 
 # Used to segfault (bug #15479)
index a9cdd5e..4df4ac7 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';       # for which_perl() etc
+    set_up_inc('../lib');
 }
 
 use Config;
index ed68b51..92f1f60 100644 (file)
@@ -3,8 +3,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index aad7752..e268f59 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 watchdog(10);
index 62f1ac9..00cf8b0 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 468b19a..bf1b49c 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 plan tests=>211;
 
@@ -826,7 +826,8 @@ is $wheel, 8, 'tied pad var explicitly returned in list ref context';
     is ($result, 'bar', "RT #41550");
 }
 
-SKIP: { skip 'no attributes.pm', 1 unless eval 'require attributes';
+SKIP: {
+  skip 'no attributes.pm', 1 unless eval 'require attributes';
 fresh_perl_is(<<'----', <<'====', {}, "lvalue can not be set after definition. [perl #68758]");
 use warnings;
 our $x;
index 8b43ef6..fac2538 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 2596ae6..20b5226 100644 (file)
@@ -2,11 +2,12 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
-    plan( tests => 8 );
+    set_up_inc('../lib');
 }
 
+plan( tests => 8 );
+
 use strict;
 
 # first, with delete
index 25d7197..b95def0 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
   chdir 't' if -d 't';
-  @INC = '../lib';
   require './test.pl';
+  set_up_inc('../lib');
 }
 
 plan tests => 48;
index e1d5c99..82d9076 100644 (file)
@@ -4,21 +4,21 @@
 
 BEGIN {
      chdir 't' if -d 't';
-     @INC = '../lib';
      require './test.pl';
+     set_up_inc('../lib');
      $| = 1;
-
      require Config;
-     skip_all_without_config('useithreads');
-     skip_all_if_miniperl("no dynamic loading on miniperl, no threads");
-
-     plan(6);
 }
 
+skip_all_without_config('useithreads');
+skip_all_if_miniperl("no dynamic loading on miniperl, no threads");
+
+plan(6);
+
 use strict;
 use warnings;
-use threads;
-use threads::shared;
+eval q/use threads/;
+eval q/use threads::shared/;
 use File::Path;
 use File::Spec::Functions qw 'updir catdir';
 use Cwd 'getcwd';
index 2acb8d8..3a7c7ca 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
      chdir 't' if -d 't';
-     @INC = '../lib';
      require './test.pl';
+     set_up_inc( '../lib' );
      $| = 1;
 
      skip_all_without_config('useithreads');
index 7b8a418..6c13bee 100644 (file)
@@ -10,8 +10,8 @@
 #
 
 chdir 't' if -d 't';
-@INC = '../lib';
 require './test.pl';
+set_up_inc('../lib');
 
 $|=1;
 
index 2b3b01a..57e7aca 100644 (file)
@@ -7,9 +7,10 @@ BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
-    plan (tests => 345);
 }
 
+plan (tests => 345);
+
 use strict;
 use warnings;
 
index 99b7938..1b9149c 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 my %seen;
index c726ebf..e0197da 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 72;
index ddef596..cf47115 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 892b646..417ec0c 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan 6;
index d451cd5..cc77cd6 100644 (file)
@@ -6,8 +6,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index e897587..68b6cc9 100644 (file)
@@ -3,8 +3,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 9508efd..c8c7dc7 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 $|=1;
index c071664..7dcb252 100644 (file)
@@ -2,8 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
-    require './test.pl'; require './charset_tools.pl';
+    require './test.pl';
+    set_up_inc('../lib');
+    require './charset_tools.pl';
 }
 
 plan tests => 6;
index 5200c5b..72ad058 100644 (file)
@@ -2,12 +2,12 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
-
-    plan(tests => 99);
+    set_up_inc('../lib');
 }
 
+plan(tests => 99);
+
 use strict;
 
 # Two hashes one with all 8-bit possible keys (initially), other
index ceb2aa4..e896711 100644 (file)
@@ -2,9 +2,10 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     $SIG{'__WARN__'} = sub { warn $_[0] if $DOWARN };
-    require "./test.pl"; require "./charset_tools.pl";
+    require "./test.pl";
+    set_up_inc( qw(. ../lib) );
+    require "./charset_tools.pl";
 }
 
 $DOWARN = 1; # enable run-time warnings now
index aff2b99..497fc26 100644 (file)
@@ -4,8 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     require Config;
     skip_all('no Errno')
        unless eval 'use Errno qw(EINVAL); 1';
index 44ccd38..854cca6 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index a0f2c67..3f27ac0 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = "../lib";
     require "./test.pl";
+    set_up_inc('../lib');
 }
 
 plan(26);
index a213bec..861389f 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 8aa1e16..81f272a 100644 (file)
@@ -2,7 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    require './test.pl';
+    set_up_inc('../lib');
 }
 
 # This file has been placed in t/opbasic to indicate that it should not use
index 7a5852a..dc156c0 100644 (file)
@@ -2,9 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw '../lib ../dist/if';
     require './test.pl';
     require './loc_tools.pl';
+    set_up_inc('../lib', '../dist/if');
 }
 
 use strict;
@@ -41,7 +41,8 @@ $testcases{'[:word:]'} = $testcases{'\w'};
 my $utf8_locale;
 
 my @charsets = qw(a d u aa);
-if (! is_miniperl() && locales_enabled('LC_CTYPE')) {
+my $locales_ok = eval { locales_enabled('LC_CTYPE'); 1 };
+if (! is_miniperl() && $locales_ok) {
     require POSIX;
     my $current_locale = POSIX::setlocale( &POSIX::LC_ALL, "C") // "";
     if ($current_locale eq 'C') {
index fff68f3..6358165 100644 (file)
@@ -4,8 +4,8 @@ binmode STDOUT, ":utf8";
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     require Config; import Config;
     skip_all_if_miniperl("no dynamic loading on miniperl, no Encode nor POSIX");
     if ($^O eq 'dec_osf') {
index 6595a24..15b1cb3 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 1;
index ee821f1..a11d4f5 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw '../lib ../ext/re';
     require './test.pl';
+    set_up_inc(qw '../lib ../ext/re');
 }
 
 use strict;
index 0f5a3e4..d0449e2 100644 (file)
@@ -15,13 +15,13 @@ $| = 1;
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib','.','../ext/re');
     require Config; import Config;
     require './test.pl'; require './charset_tools.pl';
     require './loc_tools.pl';
+    set_up_inc('../lib', '.', '../ext/re');
+}
     skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader;
     skip_all_without_unicode_tables();
-}
 
 plan tests => 799;  # Update this when adding/deleting tests.
 
index ed888a6..f2f9e57 100644 (file)
@@ -6,11 +6,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(../lib .);
     require './test.pl';
     require './charset_tools.pl';
-    skip_all_if_miniperl("miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-");
+    set_up_inc(qw '../lib .');
 }
+    skip_all_if_miniperl("miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-");
 
 use strict;
 use warnings;
index fada302..c0f855f 100644 (file)
@@ -19,8 +19,8 @@ $| = 1;
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib','.');
     require './test.pl';
+    set_up_inc('../lib', '.');
     if ($^O eq 'dec_osf') {
         skip_all("$^O cannot handle this test");
     }
index 5adae24..cb09360 100644 (file)
@@ -10,8 +10,8 @@ $| = 1;
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib','.');
     require './test.pl';
+    set_up_inc( '../lib', '.' );
     skip_all_if_miniperl("miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-");
 }
 
index d116eb9..4bd8c4a 100644 (file)
@@ -7,8 +7,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib','.');
     require './test.pl';
+    set_up_inc( '../lib', '.' );
 }
 
 use strict;
index 593b44d..dc24c87 100644 (file)
@@ -4,8 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 8;
index 1b27683..5f41ae3 100644 (file)
@@ -5,9 +5,10 @@ BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
     skip_all_if_miniperl("no dynamic loading on miniperl, no Scalar::Util");
-    plan(tests => 14);
 }
 
+plan(tests => 14);
+
 # [perl 72922]: A 'copy' of a Regex object which has magic should not crash
 # When a Regex object was copied and the copy weaken then the original regex object
 # could no longer be 'copied' with qr//
index f2082cd..1d4605a 100644 (file)
--- a/t/re/qr.t
+++ b/t/re/qr.t
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 4;
index ca82f42..ea2c303 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     undef &Regexp::DESTROY;
 }
 
index 47d190d..db5871c 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 1;
index 222d1af..8c9b92e 100644 (file)
@@ -12,8 +12,8 @@ $| = 1;
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib','.');
     require './test.pl';
+    set_up_inc( '../lib', '.' );
     skip_all_if_miniperl("no dynamic loading on miniperl, no re");
 }
 
index e370ca0..ed74032 100644 (file)
@@ -6,8 +6,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use utf8;
index 4fc9dfe..7a57b66 100644 (file)
@@ -5,8 +5,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index a23a799..10529c2 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_if_miniperl("no dynamic loading on miniperl, no File::Spec");
 }
 
index 3cf1d12..5ca9b8f 100644 (file)
@@ -4,12 +4,13 @@ $|=1;   # outherwise things get mixed up in output
 
 BEGIN {
        chdir 't' if -d 't';
-       @INC = qw '../lib ../ext/re';
        require './test.pl';
-       skip_all_without_unicode_tables();
+    set_up_inc( qw '../lib ../ext/re' );
        eval 'require Config'; # assume defaults if this fails
 }
 
+skip_all_without_unicode_tables();
+
 use strict;
 use open qw(:utf8 :std);
 
index 3380b25..b23dc8f 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_if_miniperl("no dynamic loading on miniperl, no Tie::Hash::NamedCapture");
 }
 
index f354cea..21ffe86 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 1db0bed..a106e96 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index 0d66f5b..c8b573d 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index cd5df00..544d670 100644 (file)
@@ -7,13 +7,14 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib','.','../ext/re');
     require './test.pl';
     require './charset_tools.pl';
     require './loc_tools.pl';
-    skip_all_without_unicode_tables();
+    set_up_inc( '../lib','.','../ext/re' );
 }
 
+skip_all_without_unicode_tables();
+
 use strict;
 use warnings;
 
@@ -175,6 +176,7 @@ for my $char ("٠", "٥", "٩") {
     fresh_perl_like('no warnings "experimental::regex_sets"; qr/(?[ ! ! (\w])/',
                     qr/^Unmatched \(/, {},
                     'qr/(?[ ! ! (\w])/ doesnt panic');
+
     # The following didn't panic before, but easy to add this here with a
     # paren between the !!
     fresh_perl_like('no warnings "experimental::regex_sets";qr/(?[ ! ( ! (\w)])/',
index 27cfe1a..c05b061 100644 (file)
@@ -7,13 +7,13 @@ $| = 1;
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib','.','../ext/re');
     require './test.pl';
+    set_up_inc( '../lib', '.', '../ext/re' );
+}
     if (is_miniperl()) {
         skip_all_if_miniperl("Unicode tables not built yet", 2)
             unless eval 'require "unicore/Heavy.pl"';
     }
-}
 
 plan tests => 3;
 use strict;
index 648f2e9..4a4830f 100644 (file)
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('../lib','.','../ext/re');
     require Config; import Config;
     require './test.pl';
-    skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader;
-    skip_all_without_unicode_tables();
+    set_up_inc('../lib','.','../ext/re');
 }
 
+skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader;
+skip_all_without_unicode_tables();
+
 plan tests => 58;  #** update watchdog timeouts proportionally when adding tests
 
 use strict;
@@ -119,6 +120,7 @@ sub run_tests {
         ok ($s !~ /.*?:::\s*ab/ms, 'PREGf_IMPLICIT/ms');
         ok ($s !~ /.*?:::\s*ab/msi,'PREGf_IMPLICIT/msi');
 
+
         for my $star ('*', '{0,}') {
             for my $greedy ('', '?') {
                 for my $flags ('', 'i', 'm', 'mi') {
@@ -129,7 +131,7 @@ TODO:
                         {
                             local $main::TODO = 'regdump gets mangled by the VMS pipe implementation' if $^O eq 'VMS';
                             fresh_perl_like(<<"PROG", qr/\b\Q$text\E\b/, {}, "/.${star}${greedy}X/${flags}${s} anchors implicitly");
-BEGIN { \@INC = ('../lib', '.', '../ext/re'); }
+BEGIN { require './test.pl'; set_up_inc('../lib', '.', '../ext/re'); }
 use re 'debug';
 qr/.${star}${greedy}:::\\s*ab/${flags}${s}
 PROG
@@ -140,6 +142,7 @@ PROG
         }
     }
 
+
     {
         # [perl #127855] Slowdown in m//g on COW strings of certain lengths
         # this should take milliseconds, but took 10's of seconds.
index f05d95d..c6fac65 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
index be064b9..98f676e 100644 (file)
@@ -4,8 +4,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     skip_all_if_miniperl("miniperl can't load attributes");
 }
 
index 5475f3e..fe81485 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use utf8;
index 9f804aa..de314b0 100644 (file)
@@ -3,8 +3,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     plan( tests => 18 );
 }
 
index c3d5926..a391fe3 100644 (file)
@@ -1,5 +1,5 @@
 BEGIN {
-    require "test.pl";
+    require "./test.pl";
     set_up_inc(qw(../lib .));
     skip_all_without_unicode_tables();
 }
index c257dbc..ada3140 100644 (file)
@@ -2,8 +2,8 @@
 # tests that utf8_heavy.pl doesn't use anything that prevents it loading
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 plan tests => 1;
index c7f447f..2913050 100644 (file)
@@ -6,8 +6,8 @@ BEGIN {
     $| = 1;
 
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
     require './charset_tools.pl';
     skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader;
     skip_all_without_unicode_tables();
index 4a12e3d..cc710ef 100644 (file)
@@ -6,8 +6,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib ../cpan/parent/lib);
     require "./test.pl"; require './charset_tools.pl';
+    set_up_inc( qw(. ../lib ../cpan/parent/lib) );
 }
 
 use strict;
index 7bc9024..a16d989 100644 (file)
@@ -6,8 +6,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw '../lib ../dist/base/lib';
     require './test.pl';
+    set_up_inc(qw '../lib ../dist/base/lib');
 }
 
 use utf8;
index eb8d32a..d7d541c 100644 (file)
@@ -2,11 +2,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require Config; import Config;
     require './test.pl';
     require './charset_tools.pl';
     require './loc_tools.pl';
+    set_up_inc( '../lib' );
 }
 
 plan(tests => 215);
index 0e00105..de0cb5e 100644 (file)
@@ -6,8 +6,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use utf8;
index 1349bb7..5820239 100644 (file)
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(../lib .);
     require "./test.pl";
+    set_up_inc(qw(../lib .));
 }
 
 plan tests => 52;
index 56b41d4..0874bed 100644 (file)
@@ -5,9 +5,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw '../lib ../dist/base/lib';
     $| = 1;
     require "./test.pl";
+    set_up_inc(qw '../lib ../dist/base/lib');
 }
 
 use utf8;