1# $Id: enc_data.t,v 2.2 2013/02/18 02:23:56 dankogai Exp $ 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 # encoding pragma does not support EBCDIC platforms\n"; 15 exit(0); 16 } 17 if ($] <= 5.008 and !$Config{perl_patchlevel}){ 18 print "1..0 # Skip: Perl 5.8.1 or later required\n"; 19 exit 0; 20 } 21} 22 23 24use strict; 25no warnings "deprecated"; 26use encoding 'euc-jp'; 27use Test::More tests => 4; 28 29my @a; 30 31while (<DATA>) { 32 chomp; 33 tr/��-��-��/��-��-��/; 34 push @a, $_; 35} 36 37is(scalar @a, 3); 38is($a[0], "�����DATA�դ�����Ϥ�ɤ�ΤƤ��ȥǥ���"); 39is($a[1], "���ܸ쥬�������Ѵ��ǥ��륫"); 40is($a[2], "�ɥ����ΤƤ��ȥ��ƥ��ޥ���"); 41 42__DATA__ 43�����DATA�ե�����ϥ�ɥ�Υƥ��ȤǤ��� 44���ܸ줬�������Ѵ��Ǥ��뤫 45�ɤ����Υƥ��Ȥ��Ƥ��ޤ��� 46