diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-03-31 15:05:40 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-03-31 15:05:40 +0000 |
| commit | 7be0dac30b98062294521bd59732f1029a6de1ce (patch) | |
| tree | d38d55e85faea1d14c0d92ef2424bd473111f8c7 /lib/Unicode | |
| parent | 19a100ff7cd2ff1e07217151f23a9dc9b3c02e72 (diff) | |
| download | perl-7be0dac30b98062294521bd59732f1029a6de1ce.tar.gz | |
Upgrade to Unicode 4.0.1
p4raw-id: //depot/perl@22621
Diffstat (limited to 'lib/Unicode')
| -rw-r--r-- | lib/Unicode/UCD.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 067172d1b5..f0a29add5d 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -164,7 +164,7 @@ is($charinfo->{upper}, ''); is($charinfo->{lower}, ''); is($charinfo->{title}, ''); is($charinfo->{block}, 'Mathematical Alphanumeric Symbols'); -is($charinfo->{script}, undef); +is($charinfo->{script}, 'Common'); use Unicode::UCD qw(charblock charscript); @@ -191,7 +191,7 @@ is($charinfo->{upper}, ''); is($charinfo->{lower}, ''); is($charinfo->{title}, ''); is($charinfo->{block}, 'Latin-1 Supplement'); -is($charinfo->{script}, undef); +is($charinfo->{script}, 'Common'); use Unicode::UCD qw(charblocks charscripts); @@ -221,8 +221,8 @@ is($charscript, 'Ethiopic'); my $ranges; $ranges = charscript('Ogham'); -is($ranges->[0]->[0], hex('1681'), 'Ogham charscript'); -is($ranges->[0]->[1], hex('169a')); +is($ranges->[1]->[0], hex('1681'), 'Ogham charscript'); +is($ranges->[1]->[1], hex('169a')); use Unicode::UCD qw(charinrange); @@ -232,7 +232,7 @@ ok( charinrange($ranges, "13a0")); ok( charinrange($ranges, "13f4")); ok(!charinrange($ranges, "13f5")); -is(Unicode::UCD::UnicodeVersion, '4.0.0', 'UnicodeVersion'); +is(Unicode::UCD::UnicodeVersion, '4.0.1', 'UnicodeVersion'); use Unicode::UCD qw(compexcl); |