Change 18255: The [perl #16843] has been fixed, add its test.

[Jarkko Hietaniemi]

Change 18255 by jhi@lyta on 2002/12/07 16:57:32

        The [perl #16843] has been fixed, add its test.

Affected files ...

.... //depot/maint-5.8/perl/t/uni/tr_utf8.t#3 edit

Differences ...

==== //depot/maint-5.8/perl/t/uni/tr_utf8.t#3 (text) ====
Index: perl/t/uni/tr_utf8.t
--- perl/t/uni/tr_utf8.t#2~18197~       Wed Nov 27 20:14:27 2002
+++ perl/t/uni/tr_utf8.t        Sat Dec  7 08:57:32 2002
@@ -28,7 +28,7 @@
 
 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 @@
 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__
End of Patch.