This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get substr.t working under minitest
authorFather Chrysostomos <sprout@cpan.org>
Tue, 2 Sep 2014 08:17:52 +0000 (01:17 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 3 Sep 2014 03:11:20 +0000 (20:11 -0700)
If things are broken enough that make_ext.pl cannot run, then mini-
test may run this script before everything is built.  Hence, we need
to make sure the directories that buildcustomize.pl puts in @INC are
not clobbered by the test script.

t/op/substr.t

index 8946759..0bfdfb3 100644 (file)
@@ -4,7 +4,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    require './test.pl';
+    @INC = () unless is_miniperl();
+    unshift @INC, '../lib';
 }
 use warnings ;
 
@@ -21,8 +23,6 @@ $SIG{__WARN__} = sub {
      }
 };
 
-BEGIN { require './test.pl'; }
-
 plan(387);
 
 run_tests() unless caller;