# $Id: enc_data.t,v 1.1 2003/03/09 17:47:32 dankogai Exp $

BEGIN {

require Config; import Config;

if ($Config{'extensions'} !~ /\bEncode\b/) {

print "1..0 # Skip: Encode was not built\n";

exit 0;

}

unless (find PerlIO::Layer 'perlio') {

print "1..0 # Skip: PerlIO was not built\n";

exit 0;

}

if (ord("A") == 193) {

print "1..0 # encoding pragma does not support EBCDIC platforms\n";

exit(0);

}

if ($] <= 5.008 and !$Config{perl_patchlevel}){

print "1..0 # Skip: Perl 5.8.1 or later required\n";

exit 0;

}

}

use strict;

use encoding 'euc-jp';

use Test::More tests => 4;

my @a;

while (<DATA>) {

chomp;

tr/��-��-��/��-��-��/;

push @a, $_;

}

is(scalar @a, 3);

is($a[0], "�����DATA�դ�����Ϥ�ɤ�ΤƤ��ȥǥ���");

is($a[1], "���ܸ쥬�������Ѵ��ǥ��륫");

is($a[2], "�ɥ����ΤƤ��ȥ򥷥ƥ��ޥ���");

__DATA__

�����DATA�ե�����ϥ�ɥ�Υƥ��ȤǤ���

���ܸ줬�������Ѵ��Ǥ��뤫

�ɤ����Υƥ��Ȥ򤷤Ƥ��ޤ���