This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get lc.t working under minitest
authorFather Chrysostomos <sprout@cpan.org>
Mon, 1 Sep 2014 05:32:04 +0000 (22:32 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 3 Sep 2014 03:11:14 +0000 (20:11 -0700)
minitest can run 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/lc.t

index bb5d4c1..542ba3d 100644 (file)
--- a/t/op/lc.t
+++ b/t/op/lc.t
@@ -4,9 +4,11 @@
 
 BEGIN {
     chdir 't';
-    @INC = '../lib';
+    require './test.pl';
+    @INC = () unless is_miniperl();
+    unshift @INC, '../lib';
     require Config; import Config;
-    require './test.pl'; require './charset_tools.pl';
+    require './charset_tools.pl';
     require './loc_tools.pl';   # Contains find_utf8_ctype_locale()
 }