1# $Id: enc_data.t,v 2.6 2022/04/07 03:06:40 dankogai Exp dankogai $ 2 3BEGIN { 4 require Config; import Config; 5 if ($Config{'extensions'} !~ /\bEncode\b/) { 6 print "1..0 # Skip: Encode was not built\n"; 7 exit 0; 8 } 9 unless (find PerlIO::Layer 'perlio') { 10 print "1..0 # Skip: PerlIO was not built\n"; 11 exit 0; 12 } 13 if (ord("A") == 193) { 14 print "1..0 # Skip: encoding pragma does not support EBCDIC platforms\n"; 15 exit(0); 16 } 17 if ($] >= 5.025 and !$Config{usecperl}) { 18 print "1..0 # Skip: encoding pragma not supported in Perl 5.25 or later\n"; 19 exit(0); 20 } 21 if ($] <= 5.008 and !$Config{perl_patchlevel}){ 22 print "1..0 # Skip: Perl 5.8.1 or later required\n"; 23 exit 0; 24 } 25} 26 27 28use strict; 29no warnings "deprecated"; 30use encoding 'euc-jp'; 31use Test::More tests => 4; 32 33my @a; 34 35while (<DATA>) { 36 chomp; 37 tr/��-��-��/��-��-��/; 38 push @a, $_; 39} 40 41is(scalar @a, 3); 42is($a[0], "�����DATA�դ�����Ϥ�ɤ�ΤƤ��ȥǥ���"); 43is($a[1], "���ܸ쥬�������Ѵ��ǥ��륫"); 44is($a[2], "�ɥ����ΤƤ��ȥ��ƥ��ޥ���"); 45 46__DATA__ 47�����DATA�ե�����ϥ�ɥ�Υƥ��ȤǤ��� 48���ܸ줬�������Ѵ��Ǥ��뤫 49�ɤ����Υƥ��Ȥ��Ƥ��ޤ��� 50