UCD 5.1.0

[p5sagit/p5-mst-13.2.git] / lib / Unicode / UCD.t

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index 6e7029e..0c00c95 100644 (file)
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -254,7 +254,7 @@ ok(exists $bt->{L}, 'has L');
 is($bt->{L}, 'Left-to-Right', 'L is Left-to-Right');
 is($bt->{AL}, 'Right-to-Left Arabic', 'AL is Right-to-Left Arabic');
 
-is(Unicode::UCD::UnicodeVersion, '5.0.0', 'UnicodeVersion');
+is(Unicode::UCD::UnicodeVersion, '5.1.0', 'UnicodeVersion');
 
 use Unicode::UCD qw(compexcl);
 
@@ -325,7 +325,7 @@ is(Unicode::UCD::_getcode('U+123x'),  undef, "_getcode(x123)");
 {
     my $r1 = charscript('Latin');
     my $n1 = @$r1;
-    is($n1, 35, "number of ranges in Latin script (Unicode 5.0.0)");
+    is($n1, 42, "number of ranges in Latin script (Unicode 5.0.0)");
     shift @$r1 while @$r1;
     my $r2 = charscript('Latin');
     is(@$r2, $n1, "modifying results should not mess up internal caches");