diff options
| author | Karl Williamson <khw@cpan.org> | 2015-09-03 18:07:32 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-09-03 19:26:28 -0600 |
| commit | 8e90a0020b247e07980a072e6e305b33965f2a60 (patch) | |
| tree | eef6d101890d2dfc5e27c851c23255e142f7397c /t/io/utf8.t | |
| parent | ab0346247a49522f9a723a6762116fc6d47d2cd6 (diff) | |
| download | perl-8e90a0020b247e07980a072e6e305b33965f2a60.tar.gz | |
io/utf8.t: Generalize test for ebcdic, better skip msg
Diffstat (limited to 't/io/utf8.t')
| -rw-r--r-- | t/io/utf8.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/t/io/utf8.t b/t/io/utf8.t index 27d88e98a9..2606ef558d 100644 --- a/t/io/utf8.t +++ b/t/io/utf8.t @@ -68,8 +68,7 @@ close(F); binmode(F, ":bytes"); $x = <F>; chomp($x); - $chr = chr(196).chr(172); - if ($::IS_EBCDIC) { $chr = chr(141).chr(83); } # EBCDIC + $chr = byte_utf8a_to_utf8n(chr(196).chr(172)); is( $x, $chr ); close F; @@ -167,7 +166,7 @@ SKIP: { SKIP: { if ($::IS_EBCDIC) { - skip("EBCDIC doesn't complain", 2); + skip("EBCDIC The file isn't deformed in UTF-EBCDIC", 2); } else { my @warnings; open F, "<:utf8", $a_file or die $!; |