Put miniperl @INC logic in test.pl
authorFather Chrysostomos <sprout@cpan.org>
Tue, 2 Sep 2014 15:36:04 +0000 (08:36 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 3 Sep 2014 03:11:22 +0000 (20:11 -0700)
48 files changed:
t/op/avhv.t
t/op/blocks.t
t/op/closure.t
t/op/eval.t
t/op/filetest.t
t/op/gv.t
t/op/hash.t
t/op/inccode.t
t/op/index.t
t/op/kvaslice.t
t/op/kvhslice.t
t/op/lc.t
t/op/length.t
t/op/lexsub.t
t/op/my_stash.t
t/op/override.t
t/op/pack.t
t/op/push.t
t/op/readline.t
t/op/reverse.t
t/op/smartkve.t
t/op/smartmatch.t
t/op/sort.t
t/op/split.t
t/op/sub.t
t/op/substr.t
t/op/taint.t
t/op/tie_fetch_count.t
t/op/tiehandle.t
t/op/tr.t
t/op/universal.t
t/op/utftaint.t
t/op/vec.t
t/op/warn.t
t/op/write.t
t/re/pat_re_eval.t
t/re/reg_eval_scope.t
t/re/rxcode.t
t/re/subst.t
t/test.pl
t/uni/cache.t
t/uni/class.t
t/uni/fold.t
t/uni/gv.t
t/uni/labels.t
t/uni/lower.t
t/uni/title.t
t/uni/upper.t

index 6d9d47c..39a54dc 100644 (file)
@@ -6,8 +6,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 require Tie::Array;
index 3b406be..bfab9e0 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan tests => 7;
index 42b6991..569724f 100644 (file)
@@ -9,8 +9,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 use Config;
index ac33758..fcfe675 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan(tests => 132);
index 880978f..91ebe9c 100644 (file)
@@ -6,8 +6,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, qw '../lib ../cpan/Perl-OSType/lib';
+    set_up_inc(qw '../lib ../cpan/Perl-OSType/lib');
 }
 
 plan(tests => 53 + 27*14);
index 8e141d1..5fa8d6d 100644 (file)
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -7,8 +7,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 use warnings;
index 3f787b1..429eb38 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 use strict;
index 41e31d2..016b425 100644 (file)
@@ -5,8 +5,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 use Config;
index 86a1fd7..2bb6cd1 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
     require './charset_tools.pl';
 }
 
index 239c0d1..16ee446 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 # use strict;
index 3dd9960..a5357ad 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 # use strict;
index bd843dc..3004ea3 100644 (file)
--- a/t/op/lc.t
+++ b/t/op/lc.t
@@ -5,8 +5,7 @@
 BEGIN {
     chdir 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
     require Config; import Config;
     if (is_miniperl()) {
         skip_all_if_miniperl("Unicode tables not built yet")
index e7be3aa..2cba924 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan (tests => 41);
index 90f00a5..e37fba1 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
     *bar::is = *is;
     *bar::like = *like;
 }
index b058fcd..1e728e2 100644 (file)
@@ -5,8 +5,7 @@ package Foo;
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan 9;
index 31889a4..1d45617 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, qw '../lib ../cpan/Text-ParseWords/lib';
+    set_up_inc(qw '../lib ../cpan/Text-ParseWords/lib');
     require Config; # load these before we mess with *CORE::GLOBAL::require
     require 'Config_heavy.pl'; # since runperl will need them
 }
index a7778ab..9340f32 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, qw '../lib ../dist/Math-BigInt/lib';
+    set_up_inc(qw '../lib ../dist/Math-BigInt/lib');
 }
 
 # This is truth in an if statement, and could be a skip message
index 34fc41f..f4b034f 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 @tests = split(/\n/, <<EOF);
index f88f022..0c5619f 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan tests => 30;
index fae4ccf..059ece2 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan tests => 26;
index 4e367af..bab5d61 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 use strict;
 use warnings;
index 5804c11..bbd6372 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 use strict;
 use warnings;
index 6e608c0..59757e1 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 use warnings;
 plan( tests => 182 );
index a6202e5..007eb00 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan tests => 119;
index 0343f86..1d865bf 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan( tests => 37 );
index 0bfdfb3..801895d 100644 (file)
@@ -5,8 +5,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 use warnings ;
 
index 1c23c76..cb9074d 100644 (file)
@@ -10,8 +10,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 use strict;
index 1335d9e..c97b9b4 100644 (file)
@@ -6,8 +6,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
     plan (tests => 312);
 }
 
index 64bd2e6..21f56fc 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, qw '../lib ../dist/base/lib';
+    set_up_inc(qw '../lib ../dist/base/lib');
 }
 
 my @expect;
index fd69999..8a7dd8a 100644 (file)
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -5,8 +5,7 @@ use utf8;
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan tests => 134;
index 0bd7bb6..116f923 100644 (file)
@@ -6,8 +6,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, qw '../lib ../dist/base/lib';
+    set_up_inc(qw '../lib ../dist/base/lib');
     $| = 1;
     require "./test.pl";
 }
index 5f68216..da4f842 100644 (file)
@@ -4,8 +4,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 use strict;
index 636ef1d..141a6da 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan( tests => 35 );
index 61be312..4d679c2 100644 (file)
@@ -4,7 +4,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl(); unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan 32;
index 30d6def..653561f 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 use strict;    # Amazed that this hackery can be made strict ...
index b041828..c77439a 100644 (file)
@@ -18,8 +18,7 @@ $| = 1;
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 
index ba34bd8..0eaeeb9 100644 (file)
@@ -5,8 +5,7 @@
 BEGIN {
     chdir 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, qw(lib ../lib);
+    set_up_inc(qw(lib ../lib));
 }
 
 plan 48;
index c12e20e..263c234 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
 }
 
 plan tests => 40;
index 193dfb4..7b9a44b 100644 (file)
@@ -3,8 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
     require Config; import Config;
     require './charset_tools.pl';
 }
index 13db432..60ddf63 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -105,6 +105,12 @@ sub is_miniperl {
     return !defined &DynaLoader::boot_DynaLoader;
 }
 
+sub set_up_inc {
+    # Don’t clobber @INC under miniperl
+    @INC = () unless is_miniperl;
+    unshift @INC, @_;
+}
+
 sub _comment {
     return map { /^#/ ? "$_\n" : "# $_\n" }
            map { split /\n/ } @_;
index d6e621a..4520b7f 100644 (file)
@@ -1,8 +1,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
     if (is_miniperl()) {
         skip_all_if_miniperl("Unicode tables not built yet")
             unless eval 'require "unicore/Heavy.pl"';
index 01cb326..ec0a554 100644 (file)
@@ -1,8 +1,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, qw(../lib .);
+    set_up_inc(qw(../lib .));
     if (is_miniperl()) {
         skip_all_if_miniperl("Unicode tables not built yet")
             unless eval 'require "unicore/Heavy.pl"';
index 5eb39d3..66c4f01 100644 (file)
@@ -7,8 +7,7 @@ use warnings;
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
     if (is_miniperl()) {
         skip_all_if_miniperl("Unicode tables not built yet")
             unless eval 'require "unicore/Heavy.pl"';
index c63228c..45b21bb 100644 (file)
@@ -7,8 +7,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
     if (is_miniperl()) {
         skip_all_if_miniperl("Unicode tables not built yet")
             unless eval 'require "unicore/Heavy.pl"';
index ec80ade..a64595b 100644 (file)
@@ -5,8 +5,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
-    @INC = () unless is_miniperl();
-    unshift @INC, '../lib';
+    set_up_inc('../lib');
     if (is_miniperl()) {
         skip_all_if_miniperl("Unicode tables not built yet")
             unless eval 'require "unicore/Heavy.pl"';
index 518ce1f..62bd022 100644 (file)
@@ -1,8 +1,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require "uni/case.pl";
-    @INC = () unless is_miniperl();
-    unshift @INC, qw(../lib .);
+    set_up_inc(qw(../lib .));
 }
 
 casetest(0, # No extra tests run here,
index 4cd4090..e4c03c2 100644 (file)
@@ -1,8 +1,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require "uni/case.pl";
-    @INC = () unless is_miniperl();
-    unshift @INC, qw(../lib .);
+    set_up_inc(qw(../lib .));
 }
 
 casetest(0, # No extra tests run here,
index 0c31922..3267038 100644 (file)
@@ -1,8 +1,7 @@
 BEGIN {
     chdir 't' if -d 't';
     require "uni/case.pl";
-    @INC = () unless is_miniperl();
-    unshift @INC, qw(../lib .);
+    set_up_inc(qw(../lib .));
 }
 
 is(uc("\x{3B1}\x{345}\x{301}"), "\x{391}\x{301}\x{399}", 'Verify moves YPOGEGRAMMENI');