1# $Id: enc_data.t,v 1.1 2003/03/09 17:47:32 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; 25use encoding 'euc-jp'; 26use Test::More tests => 4; 27 28my @a; 29 30while (<DATA>) { 31 chomp; 32 tr/��-��-��/��-��-��/; 33 push @a, $_; 34} 35 36is(scalar @a, 3); 37is($a[0], "�����DATA�դ�����Ϥ�ɤ�ΤƤ��ȥǥ���"); 38is($a[1], "���ܸ쥬�������Ѵ��ǥ��륫"); 39is($a[2], "�ɥ����ΤƤ��ȥ��ƥ��ޥ���"); 40 41__DATA__ 42�����DATA�ե�����ϥ�ɥ�Υƥ��ȤǤ��� 43���ܸ줬�������Ѵ��Ǥ��뤫 44�ɤ����Υƥ��Ȥ��Ƥ��ޤ��� 45