From 52ee771d0013986b6872a92462554167295e583d Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 2 Mar 2015 15:00:25 -0700 Subject: lib/Unicode/UCD.t: Fixes to work on EBCDIC These were broken by the upgrade of Unicode::UCD to version 0.61 --- lib/Unicode/UCD.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lib') 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"); -- cgit v1.2.1