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
[perl5.git] / 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()
 }