From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 2 Apr 2002 15:39:04 +0000 (+0000)
Subject: EBCDIC test tweak.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dcdcee7df18984121c84a77b6cef551710b5b154;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC test tweak.

p4raw-id: //depot/perl@15684
---

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index f5d98ef..7a759b8 100644
--- 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
--- 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