This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get t/uni/lower.t working under minitest
[perl5.git] / t / uni / lower.t
index 5b706af..518ce1f 100644 (file)
@@ -1,7 +1,8 @@
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(../lib uni .);
-    require "case.pl";
+    require "uni/case.pl";
+    @INC = () unless is_miniperl();
+    unshift @INC, qw(../lib .);
 }
 
 casetest(0, # No extra tests run here,