diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-09-06 00:29:45 +0300 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-09-06 00:35:15 +0000 |
| commit | 98fbe98930ddfea1c62d93ddeb877f51263c4d25 (patch) | |
| tree | 031776f0298e5f4934836a81c7dabab076012a45 /lib/Unicode | |
| parent | 85c3142dc721254f0ad6b78e1d67d47cfdd317eb (diff) | |
| download | perl-98fbe98930ddfea1c62d93ddeb877f51263c4d25.tar.gz | |
UCD 5.0.0
Message-ID: <44FDC219.8010006@iki.fi>
p4raw-id: //depot/perl@28788
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 c9903e5743..52075b807f 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -238,7 +238,7 @@ ok( charinrange($ranges, "13a0")); ok( charinrange($ranges, "13f4")); ok(!charinrange($ranges, "13f5")); -is(Unicode::UCD::UnicodeVersion, '4.1.0', 'UnicodeVersion'); +is(Unicode::UCD::UnicodeVersion, '5.0.0', 'UnicodeVersion'); use Unicode::UCD qw(compexcl); @@ -309,7 +309,7 @@ is(Unicode::UCD::_getcode('U+123x'), undef, "_getcode(x123)"); { my $r1 = charscript('Latin'); my $n1 = @$r1; - is($n1, 29, "29 ranges in Latin script (Unicode 4.1.0)"); + is($n1, 35, "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"); |