This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip lc.t under miniperl unless uni tables exist
authorFather Chrysostomos <sprout@cpan.org>
Tue, 2 Sep 2014 07:55:24 +0000 (00:55 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 3 Sep 2014 03:11:18 +0000 (20:11 -0700)
The earlier commit on this branch to fix up lc.t under minitest was
written before 2db3e09128 made its way into blead.  Now, attempts to
load Unicode tables under miniperl croak instead of failing silently.

t/op/lc.t

index 542ba3d..bd843dc 100644 (file)
--- a/t/op/lc.t
+++ b/t/op/lc.t
@@ -8,6 +8,10 @@ BEGIN {
     @INC = () unless is_miniperl();
     unshift @INC, '../lib';
     require Config; import Config;
+    if (is_miniperl()) {
+        skip_all_if_miniperl("Unicode tables not built yet")
+            unless eval 'require "unicore/Heavy.pl"';
+    }
     require './charset_tools.pl';
     require './loc_tools.pl';   # Contains find_utf8_ctype_locale()
 }