Unicode::Normalize no-go with miniperl.

Unicode::Normalize comes in via Unicode::UCD, which comes in e.g.
via uni/case.pl.

Tried using test.pl and its skip_all_if_miniperl() in all cases,
but that leads into weird failures in full 'make test'.

diff --git a/t/uni/fold.t b/t/uni/fold.t
index 149573a..1a7e865 100644 (file)
--- a/t/uni/fold.t
+++ b/t/uni/fold.t
@@ -9,6 +9,7 @@ BEGIN {
     require './test.pl';
     set_up_inc('../lib');
     skip_all_without_unicode_tables();
+    skip_all_if_miniperl("miniperl, no Unicode::Normalize");
     require Config; import Config;
     require './charset_tools.pl';
     require './loc_tools.pl';   # Contains find_utf8_ctype_locale()

diff --git a/t/uni/lower.t b/t/uni/lower.t
index 1301b48..31fd1f7 100644 (file)
--- a/t/uni/lower.t
+++ b/t/uni/lower.t
@@ -1,5 +1,9 @@
 BEGIN {
     chdir 't' if -d 't';
+    unless (defined &DynaLoader::boot_DynaLoader) {
+      print("1..0 # miniperl: no Unicode::Normalize");
+      exit(0);
+    }
     require "uni/case.pl";
 }
 

diff --git a/t/uni/title.t b/t/uni/title.t
index 35c4f77..458ca8e 100644 (file)
--- a/t/uni/title.t
+++ b/t/uni/title.t
@@ -1,5 +1,9 @@
 BEGIN {
     chdir 't' if -d 't';
+    unless (defined &DynaLoader::boot_DynaLoader) {
+      print("1..0 # miniperl: no Unicode::Normalize");
+      exit(0);
+    }
     require "uni/case.pl";
 }
 

diff --git a/t/uni/upper.t b/t/uni/upper.t
index 41b235c..532f4bd 100644 (file)
--- a/t/uni/upper.t
+++ b/t/uni/upper.t
@@ -1,5 +1,9 @@
 BEGIN {
     chdir 't' if -d 't';
+    unless (defined &DynaLoader::boot_DynaLoader) {
+      print("1..0 # miniperl: no Unicode::Normalize");
+      exit(0);
+    }
     require "uni/case.pl";
 }