diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-02 15:39:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-02 15:39:04 +0000 |
| commit | dcdcee7df18984121c84a77b6cef551710b5b154 (patch) | |
| tree | eb9c82028070ad752a5ee360892462781b7c079d /t/uni | |
| parent | 23b847786cf7d86c6da9c7a772a1aef6918eee65 (diff) | |
| download | perl-dcdcee7df18984121c84a77b6cef551710b5b154.tar.gz | |
EBCDIC test tweak.
p4raw-id: //depot/perl@15684
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/case.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/uni/case.pl b/t/uni/case.pl index 17f78142c3..b6df5a8089 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 |