diff options
| author | Karl Williamson <khw@cpan.org> | 2014-10-22 10:17:40 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-05 21:48:27 -0700 |
| commit | aa0bd1ca4055207ac3a3da601a4c05d1adef6971 (patch) | |
| tree | 0246d2efbb6da065ead306a6fbfde4df6ec315d8 /ext/PerlIO-encoding | |
| parent | bdf3ec5efeabede3c441b149686008dba865417b (diff) | |
| download | perl-aa0bd1ca4055207ac3a3da601a4c05d1adef6971.tar.gz | |
PerlIO-encoding/t/encoding.t: Generalize for non-ASCII platform
Diffstat (limited to 'ext/PerlIO-encoding')
| -rw-r--r-- | ext/PerlIO-encoding/t/encoding.t | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/ext/PerlIO-encoding/t/encoding.t b/ext/PerlIO-encoding/t/encoding.t index 6b4d3d068a..fdd1f246c1 100644 --- a/ext/PerlIO-encoding/t/encoding.t +++ b/ext/PerlIO-encoding/t/encoding.t @@ -9,6 +9,7 @@ BEGIN { print "1..0 # Skip: not Encode\n"; exit 0; } + require "../../t/charset_tools.pl"; } use Test::More tests => 24; @@ -37,13 +38,9 @@ if (open(GRK, ">$grk")) { if (open(UTF, "<$utf")) { binmode(UTF, ":bytes"); - if (ord('A') == 193) { # EBCDIC - # alpha beta gamma in UTF-EBCDIC Unicode (0x3b1 0x3b2 0x3b3) - is(scalar <UTF>, "\xb4\x58\xb4\x59\xb4\x62"); - } else { - # alpha beta gamma in UTF-8 Unicode (0x3b1 0x3b2 0x3b3) - is(scalar <UTF>, "\xce\xb1\xce\xb2\xce\xb3"); - } + + # alpha beta gamma in UTF-8 Unicode (0x3b1 0x3b2 0x3b3) + is(scalar <UTF>, byte_utf8a_to_utf8n("\xce\xb1\xce\xb2\xce\xb3")); close UTF; } |