EBCDIC test tweak.

p4raw-id: //depot/perl@15684

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index f5d98ef..7a759b8 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -2828,9 +2828,8 @@ tests have been added.
                                                               785 832-834 845
  op/sprintf.t                               224    3   1.34%  98 100 136
  op/tr.t                                     97    5   5.15%  63 71-74
- uni/fold.t                                 767    8   1.04%  25-26 62 169 196
-                                                              648 697-698
- 60 tests and 384 subtests skipped.
+ uni/fold.t                                 780    6   0.77%  61 169 196 661
+                                                              710-711
 
 =head2 Localising Tied Arrays and Hashes Is Broken
 

diff --git a/t/uni/case.pl b/t/uni/case.pl
index 17f7814..b6df5a8 100644 (file)
--- a/t/uni/case.pl
+++ b/t/uni/case.pl
@@ -95,7 +95,13 @@ sub casetest {
            #
            # The uppercase exceptions are identical.
            #
-           if ($i =~ /^(0149|01F0|1E96|1E97|1E98|1E99|1E9A)$/) {
+           # The lowercase has one more:
+           #
+           #         Unicode   Unicode+EBCDIC  
+           #
+           # 0130 -> 0069 0307 (00D1 0307)
+           #
+           if ($i =~ /^(0130|0149|01F0|1E96|1E97|1E98|1E99|1E9A)$/) {
                $e =~ s/004E/002B/; # N
                $e =~ s/004A/00A2/; # J
                $e =~ s/0048/00E7/; # H
@@ -103,6 +109,7 @@ sub casetest {
                $e =~ s/0057/00EF/; # W
                $e =~ s/0059/00DF/; # Y
                $e =~ s/0041/00A0/; # A
+               $e =~ s/0069/00D1/; # i
            }
            # We have to map the output, not the input, because
            # pack/unpack U has been EBCDICified, too, it would