In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/52ee771d0013986b6872a92462554167295e583d?hp=e1c247fd3eaa439c568393bc8c2187467fd2998d>
- Log ----------------------------------------------------------------- commit 52ee771d0013986b6872a92462554167295e583d Author: Karl Williamson <[email protected]> Date: Mon Mar 2 15:00:25 2015 -0700 lib/Unicode/UCD.t: Fixes to work on EBCDIC These were broken by the upgrade of Unicode::UCD to version 0.61 ----------------------------------------------------------------------- Summary of changes: lib/Unicode/UCD.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index ee6ec03..969e0f8 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"); -- Perl5 Master Repository
