diff options
Diffstat (limited to 't/uni/tr_utf8.t')
| -rw-r--r-- | t/uni/tr_utf8.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/uni/tr_utf8.t b/t/uni/tr_utf8.t index b67883a890..12f3516fc2 100644 --- a/t/uni/tr_utf8.t +++ b/t/uni/tr_utf8.t @@ -28,7 +28,7 @@ BEGIN { use strict; #use Test::More qw(no_plan); -use Test::More tests => 6; +use Test::More tests => 7; use encoding 'utf8'; @@ -57,4 +57,11 @@ $str = $hiragana; $str =~ s/([ぁ-ん])/$h2k{$1}/go; is($str, $katakana, "s/// # hiragana -> katakana"); $str = $katakana; $str =~ s/([ァ-ン])/$k2h{$1}/go; 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]"); +} __END__ |