new perldelta

[perl5.git] / t / uni / title.t

diff --git a/t/uni/title.t b/t/uni/title.t
index 3d2eb3e..45c895f 100644 (file)
--- a/t/uni/title.t
+++ b/t/uni/title.t
@@ -1,9 +1,16 @@
 BEGIN {
     chdir 't' if -d 't';
 BEGIN {
     chdir 't' if -d 't';

-    @INC = qw(../lib uni .);
-    require "case.pl";
+    unless (defined &DynaLoader::boot_DynaLoader) {
+      print("1..0 # miniperl: no Unicode::Normalize");
+      exit(0);
+    }
+    require "./uni/case.pl";

 }
 
 }
 

+use feature 'unicode_strings';
+

 casetest(0, # No extra tests run here,
 casetest(0, # No extra tests run here,

-       "Title", \%utf8::ToSpecTitle, sub { ucfirst $_[0] },
-        sub { my $a = ""; ucfirst ($_[0] . $a) });
+       "Titlecase_Mapping",
+        ucfirst                        => sub { ucfirst $_[0] },
+       ucfirst_with_appended_null_arg => sub { my $a = ""; ucfirst ($_[0] . $a) }
+       );