From 88632417a970dff8f92718b0800b1aa1400cb4ae Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Thu, 16 Jan 2003 20:36:23 +0000 Subject: Fix 'use encoding' I/O for code points 0x80..0xFF; code changes from Inaba Hiroto; test tweaks by jhi. p4raw-id: //depot/perl@18496 --- t/uni/tr_utf8.t | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 't/uni') diff --git a/t/uni/tr_utf8.t b/t/uni/tr_utf8.t index ee95c36d2b..12f3516fc2 100644 --- a/t/uni/tr_utf8.t +++ b/t/uni/tr_utf8.t @@ -62,7 +62,6 @@ is($str, $hiragana, "s/// # hiragana -> katakana"); # [perl 16843] my $line = 'abcdefghijklmnopqrstuvwxyz$0123456789'; $line =~ tr/bcdeghijklmnprstvwxyz$02578/בצדעגהיײקלמנפּרסטװשכיזשױתײחא/; -# is($line, "aבצדעfגהיײקלמנoפqּרסuטװשכיזש1ױ34ת6ײח9", "[perl #16843]"); - ok(1, "TODO: Encode 1.84 broke the test for perl #16843"); + is($line, "aבצדעfגהיײקלמנoפqּרסuטװשכיזש1ױ34ת6ײח9", "[perl #16843]"); } __END__ -- cgit v1.2.1