diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/MANIFEST | 1 | ||||
| -rw-r--r-- | ext/Encode/t/enc_data.t | 24 |
2 files changed, 25 insertions, 0 deletions
diff --git a/ext/Encode/MANIFEST b/ext/Encode/MANIFEST index 2705308a64..0eb87ed1ec 100644 --- a/ext/Encode/MANIFEST +++ b/ext/Encode/MANIFEST @@ -62,6 +62,7 @@ t/big5-eten.enc test data t/big5-eten.utf test data t/big5-hkscs.enc test data t/big5-hkscs.utf test data +t/enc_data.t test script for utf8 DATA t/enc_eucjp.t test script t/enc_module.enc test data for t/enc_module.t t/enc_module.t test script diff --git a/ext/Encode/t/enc_data.t b/ext/Encode/t/enc_data.t new file mode 100644 index 0000000000..f47d083204 --- /dev/null +++ b/ext/Encode/t/enc_data.t @@ -0,0 +1,24 @@ +use encoding 'euc-jp'; +use Test::More tests => 1; + +my @a; + +while (<DATA>) { + chomp; + tr/��-��-��/��-��-��/; + push @a, $_; +} + +SKIP: { + skip("pre-5.8.1 does not do utf8 DATA", 1) if $] < 5.008001; + ok(@a == 3 && + $a[0] eq "�����DATA�դ�����Ϥ�ɤ�ΤƤ��ȥǥ���" && + $a[1] eq "���ܸ쥬�������Ѵ��ǥ��륫" && + $a[2] eq "�ɥ����ΤƤ��ȥƥ��ޥ���", + "utf8 (euc-jp) DATA") +} + +__DATA__ +�����DATA�ե�����ϥ�ɥ�Υƥ��ȤǤ��� +���ܸ줬�������Ѵ��Ǥ��뤫 +�ɤ����Υƥ��ȤƤ��ޤ��� |