diff options
author | Karl Williamson <khw@cpan.org> | 2015-03-02 15:00:25 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-03-05 12:25:54 -0700 |
commit | 52ee771d0013986b6872a92462554167295e583d (patch) | |
tree | 2b0693b98a7062e3e7645c5387d66a6d513e53a9 /lib | |
parent | e1c247fd3eaa439c568393bc8c2187467fd2998d (diff) | |
download | perl-52ee771d0013986b6872a92462554167295e583d.tar.gz |
lib/Unicode/UCD.t: Fixes to work on EBCDIC
These were broken by the upgrade of Unicode::UCD to version 0.61
Diffstat (limited to 'lib')
-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 ee6ec0350b..969e0f8529 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -72,7 +72,7 @@ is(charprop($cp, "script"), "Common"); $cp = utf8::unicode_to_native(0x41); my $A_code = sprintf("%04X", ord("A")); my $a_code = sprintf("%04X", ord("a")); -$charinfo = charinfo(utf8::unicode_to_native($cp)); +$charinfo = charinfo($cp); is($charinfo->{code}, $A_code, "LATIN CAPITAL LETTER A"); is($charinfo->{name}, "LATIN CAPITAL LETTER A"); @@ -367,7 +367,7 @@ is(charblock(0x1FFFF), "No_Block", "0x1FFFF - unused charblock"); my $fraction_3_4_code = sprintf("%04X", utf8::unicode_to_native(0xbe)); $cp = $fraction_3_4_code; -$charinfo = charinfo(hex $fraction_3_4_code); +$charinfo = charinfo($fraction_3_4_code); is($charinfo->{code}, $fraction_3_4_code, "VULGAR FRACTION THREE QUARTERS"); is($charinfo->{name}, "VULGAR FRACTION THREE QUARTERS"); @@ -394,11 +394,11 @@ is(charprop($cp, 'na1'), "FRACTION THREE QUARTERS"); is($charinfo->{comment}, ""); is(charprop($cp, 'isc'), ""); is($charinfo->{upper}, ""); -is(charprop($cp, 'uc'), "\x{be}"); +is(charprop($cp, 'uc'), chr hex $cp); is($charinfo->{lower}, ""); -is(charprop($cp, 'lc'), "\x{be}"); +is(charprop($cp, 'lc'), chr hex $cp); is($charinfo->{title}, ""); -is(charprop($cp, 'tc'), "\x{be}"); +is(charprop($cp, 'tc'), chr hex $cp); is($charinfo->{block}, "Latin-1 Supplement"); is(charprop($cp, 'block'), "Latin_1_Supplement"); is($charinfo->{script}, "Common"); |