diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-16 20:36:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-16 20:36:23 +0000 |
| commit | 88632417a970dff8f92718b0800b1aa1400cb4ae (patch) | |
| tree | ea66b4eab7dfc6a1a4ebdd064c01f1f0095bcfe1 /t/uni | |
| parent | caf774a6b47c93401a4581fab332b04b560c89d5 (diff) | |
| download | perl-88632417a970dff8f92718b0800b1aa1400cb4ae.tar.gz | |
Fix 'use encoding' I/O for code points 0x80..0xFF;
code changes from Inaba Hiroto; test tweaks by jhi.
p4raw-id: //depot/perl@18496
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/tr_utf8.t | 3 |
1 files changed, 1 insertions, 2 deletions
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__ |