test that use encoding; doesn't cause references to be stringified

[p5sagit/p5-mst-13.2.git] / t / uni / case.pl

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