diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-10-12 22:45:26 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-18 12:58:22 -0800 |
| commit | bd84d1309eb7245f3d6d2ae0884467de8d270f63 (patch) | |
| tree | d71e805ee65f25fe2d84734413e42600e7214a85 /lib/Unicode | |
| parent | 5f7264c78b97758814a71b77a0e5972415b6f3f4 (diff) | |
| download | perl-bd84d1309eb7245f3d6d2ae0884467de8d270f63.tar.gz | |
Unicode 6.0 DB
Diffstat (limited to 'lib/Unicode')
| -rw-r--r-- | lib/Unicode/UCD.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 8e81dc42b0..795888aa2f 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -296,7 +296,7 @@ is($bt->{AL}, 'Right-to-Left Arabic', 'AL is Right-to-Left Arabic'); # If this fails, then maybe one should look at the Unicode changes to see # what else might need to be updated. -is(Unicode::UCD::UnicodeVersion, '5.2.0', 'UnicodeVersion'); +is(Unicode::UCD::UnicodeVersion, '6.0.0', 'UnicodeVersion'); use Unicode::UCD qw(compexcl); @@ -422,7 +422,7 @@ is(Unicode::UCD::_getcode('U+123x'), undef, "_getcode(x123)"); { my $r1 = charscript('Latin'); my $n1 = @$r1; - is($n1, 42, "number of ranges in Latin script (Unicode 5.1.0)"); + is($n1, 45, "number of ranges in Latin script (Unicode 6.0.0)"); shift @$r1 while @$r1; my $r2 = charscript('Latin'); is(@$r2, $n1, "modifying results should not mess up internal caches"); |